From 88b9f96156f221b7fe19ba1e7457dd1b04dc2607 Mon Sep 17 00:00:00 2001 From: ebotcazou Date: Sat, 12 Sep 2015 16:35:20 +0000 Subject: [PATCH] PR ada/66965 * gnat.dg/specs/addr1.ads: Remove. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@227709 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/specs/addr1.ads | 35 ----------------------------------- 2 files changed, 5 insertions(+), 35 deletions(-) delete mode 100644 gcc/testsuite/gnat.dg/specs/addr1.ads 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 + + PR ada/66965 + * gnat.dg/specs/addr1.ads: Remove. + 2015-09-11 Rainer Orth * 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; -- 2.7.4