* gnat.dg/specs/addr1.ads: Revert the last change.
* gnat.dg/specs/atomic1.ads: Likewise.
From-SVN: r204829
+2013-11-14 H.J. Lu <hongjiu.lu@intel.com>
+
+ * gnat.dg/specs/addr1.ads: Revert the last change.
+ * gnat.dg/specs/atomic1.ads: Likewise.
+
2013-11-14 Cong Hou <congh@google.com>
* gcc.dg/vect/vect-alias-check.c: Update.
for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" }
Obj2: Rec2;
- for Obj2'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" "" { xfail mips*-*-* { { i?86-*-* x86_64-*-* } && x32 } } }
+ for Obj2'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" "" { xfail mips*-*-* } }
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*-*-* { { i?86-*-* x86_64-*-* } && x32 } } }
+ pragma Atomic (U); -- { dg-error "atomic access" "" { xfail mips*-*-* } }
type R is record
U : UA;
- pragma Atomic (U); -- { dg-error "atomic access" "" { xfail mips*-*-* { { i?86-*-* x86_64-*-* } && x32 } } }
+ pragma Atomic (U); -- { dg-error "atomic access" "" { xfail mips*-*-* } }
end record;
end Atomic1;