From e1be7706e0d50dedc47cd7302d3a39daff1970b0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 18 Jun 2010 09:28:22 +0000 Subject: [PATCH] * gnat.dg/class_wide2.adb: Remove bogus message, no longer generated. From-SVN: r160968 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/class_wide2.adb | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 7676e43a9f5..737cc2129ef 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-06-18 Arnaud Charlet + + * gnat.dg/class_wide2.adb: Remove bogus message, no longer generated. + 2010-06-17 Janus Weil PR fortran/44558 diff --git a/gcc/testsuite/gnat.dg/class_wide2.adb b/gcc/testsuite/gnat.dg/class_wide2.adb index b82289d5ef5..9df54bf9071 100644 --- a/gcc/testsuite/gnat.dg/class_wide2.adb +++ b/gcc/testsuite/gnat.dg/class_wide2.adb @@ -4,7 +4,7 @@ package body Class_Wide2 is procedure Initialize is Var_Acc : Class_Acc := new Grand_Child; - Var : Grand_Child'Class := Grand_Child'Class (Var_Acc.all); -- { dg-bogus "already constrained" "" { xfail *-*-* } } + Var : Grand_Child'Class := Grand_Child'Class (Var_Acc.all); begin Var := Grand_Child'Class (Var_Acc.all); -- 2.30.2