1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/return1.adb b/gcc/testsuite/gnat.dg/return1.adb
new file mode 100644
index 000000000..f632211f5
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/return1.adb
@@ -0,0 +1,11 @@
+-- { dg-do compile }
+-- { dg-options "-gnatwa" }
+
+package body return1 is
+    function X_Func (O : access Child) return access Base'Class is
+    begin
+       return X_Local : access Base'Class do
+          X_Local := O;
+       end return;
+    end X_Func;
+end return1;