* gnat.dg/specs/addr1.ads: XFAIL on x32.
* gnat.dg/specs/atomic1.ads: Likewise.
From-SVN: r204789
+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="
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)" }
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;