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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f75a579..1131647 100644 (file)
--- 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 (file)
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;