mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 15:11:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gnat.dg/class_wide2.adb: Remove bogus message, no longer generated.

Browse Source 
From-SVN: r160968
This commit is contained in:
Arnaud Charlet 2010-06-18 09:28:22 +00:00 committed by Arnaud Charlet
parent c736294d9b
commit e1be7706e0
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2010-06-18 Arnaud Charlet <charlet@adacore.com>
* gnat.dg/class_wide2.adb: Remove bogus message, no longer generated.
2010-06-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/44558

2
gcc/testsuite/gnat.dg/class_wide2.adb
View File

@ -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);