From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sat, 12 Sep 2015 16:35:20 +0000 (+0000)
Subject: re PR ada/66965 (gnat.dg/specs/addr1.ads obsolete -- failing on trunk)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ffaa5de654e256225a7dd324d40958fa93ad0250;p=gcc.git

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 f75a579bc04..11316478ebd 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 bcb833bec69..00000000000
--- 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;