diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-21 20:29:17 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-21 20:29:17 +0000 |
| commit | 165a9c4345e2cbb19938dde828b97d8e176dc540 (patch) | |
| tree | 001c1b5f81eb538336f1b47cac2270e63f59b794 /gcc/testsuite | |
| parent | 160638a219f78e1786abd1481b7c39615347645f (diff) | |
| download | gcc-165a9c4345e2cbb19938dde828b97d8e176dc540.tar.gz | |
* gnat.dg/specs/atomic1.ads: XFAIL on MIPS.
* gnat.dg/specs/addr1.ads: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@192658 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/addr1.ads | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/atomic1.ads | 4 |
3 files changed, 11 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 99a318e73a7..7f2ddb10151 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-10-21 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/specs/atomic1.ads: XFAIL on MIPS. + * gnat.dg/specs/addr1.ads: Likewise. + 2012-10-21 Hans-Peter Nilsson <hp@bitrange.com> * gcc.dg/webizer.c (main): Add missing exit call. diff --git a/gcc/testsuite/gnat.dg/specs/addr1.ads b/gcc/testsuite/gnat.dg/specs/addr1.ads index ed048f68ef3..bcb833bec69 100644 --- a/gcc/testsuite/gnat.dg/specs/addr1.ads +++ b/gcc/testsuite/gnat.dg/specs/addr1.ads @@ -18,18 +18,18 @@ package Addr1 is A: Arr (1 .. 4); Obj1: Rec1; - for Obj1'Address use A'Address; -- { dg-bogus "alignment" } + for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" } Obj2: Rec2; - for Obj2'Address use A'Address; -- { dg-bogus "alignment" } + for Obj2'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" "" { xfail mips*-*-* } } Obj3: Rec1; - for Obj3'Address use A(1)'Address; -- { dg-bogus "alignment" } + for Obj3'Address use A(1)'Address; -- { dg-bogus "(alignment|erroneous)" } Obj4: Rec1; for Obj4'Address use A(2)'Address; -- { dg-warning "(alignment|erroneous)" } Obj5: Rec1; - for Obj5'Address use A(3)'Address; -- { dg-bogus "alignment" } + for Obj5'Address use A(3)'Address; -- { dg-bogus "(alignment|erroneous)" } end Addr1; diff --git a/gcc/testsuite/gnat.dg/specs/atomic1.ads b/gcc/testsuite/gnat.dg/specs/atomic1.ads index 500cad787f3..02e98b64314 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" } + pragma Atomic (U); -- { dg-error "atomic access" "" { xfail mips*-*-* } } type R is record U : UA; - pragma Atomic (U); -- { dg-error "atomic access" } + pragma Atomic (U); -- { dg-error "atomic access" "" { xfail mips*-*-* } } end record; end Atomic1; |