1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/interface5.adb b/gcc/testsuite/gnat.dg/interface5.adb
new file mode 100644
index 000000000..65d19a6cb
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/interface5.adb
@@ -0,0 +1,8 @@
+--  { dg-do compile }
+--  { dg-options "-gnatws" }
+package body interface5 is
+   function F (Object : Child) return access Child is
+   begin
+      return null;
+   end F;
+end interface5;