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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f75a579bc041fcbe4275814042c7461f629a5295..11316478ebd92e42806df91cc6f4c07fa23f8c4a 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;