From f0d5a1589f92e80bf596dd8045dcecc5a84d0747 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 20 Apr 2007 15:22:03 +0000 Subject: [PATCH] Fix semantic error. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123996 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/gnat.dg/return1.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/testsuite/gnat.dg/return1.adb b/gcc/testsuite/gnat.dg/return1.adb index 2039f85ebfb..f632211f5d4 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; -- 2.11.0