diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-09-12 16:35:20 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-09-12 16:35:20 +0000 |
| commit | ffaa5de654e256225a7dd324d40958fa93ad0250 (patch) | |
| tree | 968a90722a15e0adf2131fdfb04a40d5cc572270 /gcc | |
| parent | 2b564b9c4528d947ffbe4cd0d9dea44c1f6b2328 (diff) | |
| download | gcc-ffaa5de654e256225a7dd324d40958fa93ad0250.zip gcc-ffaa5de654e256225a7dd324d40958fa93ad0250.tar.gz gcc-ffaa5de654e256225a7dd324d40958fa93ad0250.tar.bz2 | |
re PR ada/66965 (gnat.dg/specs/addr1.ads obsolete -- failing on trunk)
PR ada/66965
* gnat.dg/specs/addr1.ads: Remove.
From-SVN: r227709
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/addr1.ads | 35 |
2 files changed, 5 insertions, 35 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f75a579..1131647 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-09-12 Eric Botcazou <ebotcazou@adacore.com> + + PR ada/66965 + * gnat.dg/specs/addr1.ads: Remove. + 2015-09-11 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> * gcc.dg/pie-link.c: Add -pie to dg-options. diff --git a/gcc/testsuite/gnat.dg/specs/addr1.ads b/gcc/testsuite/gnat.dg/specs/addr1.ads deleted file mode 100644 index bcb833b..0000000 --- a/gcc/testsuite/gnat.dg/specs/addr1.ads +++ /dev/null @@ -1,35 +0,0 @@ --- { dg-do compile } - -with Interfaces; use Interfaces; - -package Addr1 is - - type Arr is array (Integer range <>) of Unsigned_16; - - type Rec1 is record - I1, I2: Integer; - end record; - - type Rec2 is record - I1, I2: Integer; - end record; - for Rec2'Size use 64; - - A: Arr (1 .. 4); - - Obj1: Rec1; - for Obj1'Address use A'Address; -- { dg-bogus "(alignment|erroneous)" } - - Obj2: Rec2; - 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)" } - - 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|erroneous)" } - -end Addr1; |