Commit e4603a75 by H.J. Lu Committed by H.J. Lu

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
parent c787a32f
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> 2013-11-14 James Greenhalgh <james.greenhalgh@arm.com>
* gcc.target/aarch64/cpu-diagnostics-2.c: Change "-mcpu=" * gcc.target/aarch64/cpu-diagnostics-2.c: Change "-mcpu="
......
...@@ -21,7 +21,7 @@ package Addr1 is ...@@ -21,7 +21,7 @@ package Addr1 is
for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" } for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" }
Obj2: Rec2; 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; Obj3: Rec1;
for Obj3'Address use A(1)'Address; -- { dg-bogus "(alignment|erroneous)" } for Obj3'Address use A(1)'Address; -- { dg-bogus "(alignment|erroneous)" }
......
...@@ -6,11 +6,11 @@ package Atomic1 is ...@@ -6,11 +6,11 @@ package Atomic1 is
type UA is access all Arr; type UA is access all Arr;
U : UA; 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 type R is record
U : UA; 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 record;
end Atomic1; end Atomic1;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment