OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR ada/66965 (gnat.dg/specs/addr1.ads obsolete -- failing on trunk)

Browse Source 
PR ada/66965
	* gnat.dg/specs/addr1.ads: Remove.

From-SVN: r227709
This commit is contained in:
Eric Botcazou 2015-09-12 16:35:20 +00:00 committed by Eric Botcazou
parent 2b564b9c45
commit ffaa5de654
2 changed files with 5 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

35
gcc/testsuite/gnat.dg/specs/addr1.ads
View File

@ -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;