From 557435b74582557c1aba017c56f3a6efdce67a2c Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Fri, 20 Apr 2007 17:22:03 +0200
Subject: Fix semantic error.

From-SVN: r123996
---
 gcc/testsuite/gnat.dg/return1.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gcc')

diff --git a/gcc/testsuite/gnat.dg/return1.adb b/gcc/testsuite/gnat.dg/return1.adb
index 2039f85..f632211 100644
--- 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;
-- 
cgit v1.1