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

From-SVN: r160968

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 7676e43a9f5c092562d07091407db48c95da295f..737cc2129ef91c27c5490441054a1bd0701522fa 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gnat.dg/class_wide2.adb b/gcc/testsuite/gnat.dg/class_wide2.adb
index b82289d5ef531b9c3f199550d957a3ba5ce5c328..9df54bf9071b11edf057b6c0f39d48a6472f7080 100644 (file)
--- 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);