Fix semantic error.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123996 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/gnat.dg/return1.adb b/gcc/testsuite/gnat.dg/return1.adb
index 2039f85..f632211 100644 (file)
--- a/gcc/testsuite/gnat.dg/return1.adb
+++ b/gcc/testsuite/gnat.dg/return1.adb
@@ -4,7 +4,7 @@
 package body return1 is
     function X_Func (O : access Child) return access Base'Class is
     begin
-       return X_Local : access Child'Class do
+       return X_Local : access Base'Class do
           X_Local := O;
        end return;
     end X_Func;