From 458bf4e00bdce534fe78fedfa2271f57bfec72df Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Thu, 14 Nov 2013 22:39:21 +0000 Subject: Revert the last change * gnat.dg/specs/addr1.ads: Revert the last change. * gnat.dg/specs/atomic1.ads: Likewise. git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@204829 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/specs/addr1.ads | 2 +- gcc/testsuite/gnat.dg/specs/atomic1.ads | 4 ++-- 3 files changed, 8 insertions(+), 3 deletions(-) (limited to 'gcc') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0dd77c1ce14..91baab29c91 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-11-14 H.J. Lu + + * gnat.dg/specs/addr1.ads: Revert the last change. + * gnat.dg/specs/atomic1.ads: Likewise. + 2013-11-14 Cong Hou * gcc.dg/vect/vect-alias-check.c: Update. diff --git a/gcc/testsuite/gnat.dg/specs/addr1.ads b/gcc/testsuite/gnat.dg/specs/addr1.ads index b357115a101..bcb833bec69 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*-*-* { { 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)" } diff --git a/gcc/testsuite/gnat.dg/specs/atomic1.ads b/gcc/testsuite/gnat.dg/specs/atomic1.ads index 2994f2a1f98..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" "" { 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; -- cgit v1.2.3