1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/thunk1_pkg2.ads b/gcc/testsuite/gnat.dg/thunk1_pkg2.ads
new file mode 100644
index 0000000..82a48d5
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/thunk1_pkg2.ads
@@ -0,0 +1,14 @@
+package Thunk1_Pkg2 is
+
+  type Root is tagged record
+    I : Integer;
+  end record;
+
+  type Iface is interface;
+  procedure Op (This : in out Iface; S : String) is abstract;
+
+  type Ext is new Root and Iface with null record;
+
+  procedure Op (This : in out Ext; S : String);
+
+end Thunk1_Pkg2;