1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/return1.ads b/gcc/testsuite/gnat.dg/return1.ads
new file mode 100644
index 000000000..6948fdabc
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/return1.ads
@@ -0,0 +1,7 @@
+package return1 is
+    type Base is abstract tagged null record;
+    type Child is new Base with record
+       Anon_Access : access Base'Class;
+    end record;
+    function X_Func (O : access Child) return access Base'Class;
+end return1;