atomic1.ads: XFAIL on MIPS.

	* gnat.dg/specs/atomic1.ads: XFAIL on MIPS.
	* gnat.dg/specs/addr1.ads: Likewise.

From-SVN: r192658

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 99a318e73a73120a71cf89ef5933fc778cb50d34..7f2ddb1015169039e8c80e974794254b5393983d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-21  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/specs/atomic1.ads: XFAIL on MIPS.
+       * gnat.dg/specs/addr1.ads: Likewise.
+
 2012-10-21  Hans-Peter Nilsson  <hp@bitrange.com>
 
        * gcc.dg/webizer.c (main): Add missing exit call.

diff --git a/gcc/testsuite/gnat.dg/specs/addr1.ads b/gcc/testsuite/gnat.dg/specs/addr1.ads
index ed048f68ef3b59a5e71cf0d704c40dc3b10b9b3f..bcb833bec69332be8f013e836859b0da64177fd1 100644 (file)
--- a/gcc/testsuite/gnat.dg/specs/addr1.ads
+++ b/gcc/testsuite/gnat.dg/specs/addr1.ads
@@ -18,18 +18,18 @@ package Addr1 is
   A: Arr (1 .. 4);
 
   Obj1: Rec1;
-  for Obj1'Address use A'Address; -- { dg-bogus "alignment" }
+  for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" }
 
   Obj2: Rec2;
-  for Obj2'Address use A'Address; -- { dg-bogus "alignment" }
+  for Obj2'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" "" { xfail mips*-*-* } }
 
   Obj3: Rec1;
-  for Obj3'Address use A(1)'Address; -- { dg-bogus "alignment" }
+  for Obj3'Address use A(1)'Address; -- { dg-bogus "(alignment|erroneous)" }
 
   Obj4: Rec1;
   for Obj4'Address use A(2)'Address; -- { dg-warning "(alignment|erroneous)" }
 
   Obj5: Rec1;
-  for Obj5'Address use A(3)'Address; -- { dg-bogus "alignment" }
+  for Obj5'Address use A(3)'Address; -- { dg-bogus "(alignment|erroneous)" }
 
 end Addr1;

diff --git a/gcc/testsuite/gnat.dg/specs/atomic1.ads b/gcc/testsuite/gnat.dg/specs/atomic1.ads
index 500cad787f333a10e4703873dc0dbb7404722ec3..02e98b643149d1dec6a3e43598f7516971712a1f 100644 (file)
--- a/gcc/testsuite/gnat.dg/specs/atomic1.ads
+++ b/gcc/testsuite/gnat.dg/specs/atomic1.ads
@@ -6,11 +6,11 @@ package Atomic1 is
   type UA is access all Arr;
 
   U : UA;
-  pragma Atomic (U);  -- { dg-error "atomic access" }
+  pragma Atomic (U);  -- { dg-error "atomic access" "" { xfail mips*-*-* } }
 
   type R is record
     U : UA;
-    pragma Atomic (U);  -- { dg-error "atomic access" }
+    pragma Atomic (U);  -- { dg-error "atomic access" "" { xfail mips*-*-* } }
   end record;
 
 end Atomic1;