Fix semantic error.

From-SVN: r123996

diff --git a/gcc/testsuite/gnat.dg/return1.adb b/gcc/testsuite/gnat.dg/return1.adb
index 2039f85ebfbff11592182bbb6365167419dc7d05..f632211f5d43b315b8d0eb8814058d89a8763834 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;