XFAIL addr1.ads and atomic1.ads on x32

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

From-SVN: r204789

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 58f311dfb4165b7bb78c34cf5f36d8f382f4005c..d89993b80a29756f246ae9c3c1802987f7bb06bf 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-14  H.J. Lu  <hongjiu.lu@intel.com>
+
+       * gnat.dg/specs/addr1.ads: XFAIL on x32.
+       * gnat.dg/specs/atomic1.ads: Likewise.
+
 2013-11-14  James Greenhalgh  <james.greenhalgh@arm.com>
 
        * gcc.target/aarch64/cpu-diagnostics-2.c: Change "-mcpu="

diff --git a/gcc/testsuite/gnat.dg/specs/addr1.ads b/gcc/testsuite/gnat.dg/specs/addr1.ads
index bcb833bec69332be8f013e836859b0da64177fd1..b357115a1011169bd34151be7d956474a91435b3 100644 (file)
--- a/gcc/testsuite/gnat.dg/specs/addr1.ads
+++ b/gcc/testsuite/gnat.dg/specs/addr1.ads
@@ -21,7 +21,7 @@ package Addr1 is
   for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" }
 
   Obj2: Rec2;
-  for Obj2'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" "" { xfail mips*-*-* } }
+  for Obj2'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" "" { xfail mips*-*-* { { i?86-*-* x86_64-*-* } && x32 } } }
 
   Obj3: Rec1;
   for Obj3'Address use A(1)'Address; -- { dg-bogus "(alignment|erroneous)" }

diff --git a/gcc/testsuite/gnat.dg/specs/atomic1.ads b/gcc/testsuite/gnat.dg/specs/atomic1.ads
index 02e98b643149d1dec6a3e43598f7516971712a1f..2994f2a1f98aedca9c2059f9a21b6a3bd0ca2ed1 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" "" { xfail mips*-*-* } }
+  pragma Atomic (U);  -- { dg-error "atomic access" "" { xfail mips*-*-* { { i?86-*-* x86_64-*-* } && x32 } } }
 
   type R is record
     U : UA;
-    pragma Atomic (U);  -- { dg-error "atomic access" "" { xfail mips*-*-* } }
+    pragma Atomic (U);  -- { dg-error "atomic access" "" { xfail mips*-*-* { { i?86-*-* x86_64-*-* } && x32 } } }
   end record;
 
 end Atomic1;