Commit e1be7706 by Arnaud Charlet Committed by Arnaud Charlet

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

From-SVN: r160968
parent c736294d
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> 2010-06-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/44558 PR fortran/44558
......
...@@ -4,7 +4,7 @@ package body Class_Wide2 is ...@@ -4,7 +4,7 @@ package body Class_Wide2 is
procedure Initialize is procedure Initialize is
Var_Acc : Class_Acc := new Grand_Child; 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 begin
Var := Grand_Child'Class (Var_Acc.all); Var := Grand_Child'Class (Var_Acc.all);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment