diff options
| author | H.J. Lu <hjl.tools@gmail.com> | 2013-11-13 13:09:56 -0800 |
|---|---|---|
| committer | H.J. Lu <hjl.tools@gmail.com> | 2013-11-13 13:10:58 -0800 |
| commit | 461aed5f285686e9efa563487e147c7494fe0fa8 (patch) | |
| tree | 19b94f5e2bf22f1aabead67766b33ceb0345750c | |
| parent | 3a863620cb8e5cb14df0eef8f09a934fda8d38cb (diff) | |
| download | gcc-hjl/x32/ada.tar.gz | |
XAIL addr1.ads and atomic1.ads on x32hjl/x32/ada
| -rw-r--r-- | gcc/testsuite/ChangeLog.x32 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/addr1.ads | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/atomic1.ads | 4 |
3 files changed, 7 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog.x32 b/gcc/testsuite/ChangeLog.x32 new file mode 100644 index 00000000000..c533db087e3 --- /dev/null +++ b/gcc/testsuite/ChangeLog.x32 @@ -0,0 +1,4 @@ +2013-11-13 H.J. Lu <hongjiu.lu@intel.com> + + * gnat.dg/specs/addr1.ads: XFAIL on x32. + * gnat.dg/specs/atomic1.ads: Likewise. diff --git a/gcc/testsuite/gnat.dg/specs/addr1.ads b/gcc/testsuite/gnat.dg/specs/addr1.ads index bcb833bec69..b357115a101 100644 --- 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 02e98b64314..2994f2a1f98 100644 --- 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; |