1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/iface_eq_test-child.ads b/gcc/testsuite/gnat.dg/specs/iface_eq_test-child.ads
new file mode 100644
index 000000000..028bb1be0
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/iface_eq_test-child.ads
@@ -0,0 +1,9 @@
+--  { dg-do compile }
+--  { dg-options "-gnatc" }
+generic                    
+package Iface_Eq_Test.Child is
+   protected type PO is new Iface with
+      procedure Dummy;
+   end;
+   overriding function "=" (L, R : access PO) return Boolean;
+end;