diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2013-11-14 12:40:15 +0000 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2013-11-14 04:40:15 -0800 |
| commit | e4603a754f63751aa9f6d7e14539ecdbb2f4549a (patch) | |
| tree | 6cd5e7142573a0b4b363f06ba2c531b27713ef2c /gcc | |
| parent | c787a32f872a6ca85a157eac18343fc67ba35419 (diff) | |
| download | gcc-e4603a754f63751aa9f6d7e14539ecdbb2f4549a.zip gcc-e4603a754f63751aa9f6d7e14539ecdbb2f4549a.tar.gz gcc-e4603a754f63751aa9f6d7e14539ecdbb2f4549a.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -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, 8 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 58f311d..d89993b 100644 --- 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 bcb833b..b357115 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 02e98b6..2994f2a 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; |