From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 20 Apr 2016 12:28:48 +0000 (+0000)
Subject: * gnat.dg/self1.adb: Remove now incorrect test.
X-Git-Tag: basepoints/gcc-8~7545
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d7aa24e4bc0e4a2aef9af3d020c2ba98e57be399;p=thirdparty%2Fgcc.git

* gnat.dg/self1.adb: Remove now incorrect test.

From-SVN: r235271
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f869541b4eb8..20d4df4f7c22 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2016-04-20  Arnaud Charlet  <charlet@adacore.com>
+
+	* gnat.dg/self1.adb: Remove now incorrect test.
+
 2016-04-20  Bin Cheng  <bin.cheng@arm.com>
 
 	* gcc.dg/tree-ssa/scev-11.c: New test.
diff --git a/gcc/testsuite/gnat.dg/self1.adb b/gcc/testsuite/gnat.dg/self1.adb
deleted file mode 100644
index dc6f485b8feb..000000000000
--- a/gcc/testsuite/gnat.dg/self1.adb
+++ /dev/null
@@ -1,21 +0,0 @@
---  { dg-do compile }
-
-procedure Self1 is      
-   type Event;
-        
-   type Link (E : access Event) is limited record
-      Val : Integer;
-   end record;
-
-   type Ptr is access all Event;
-   
-   type Event is tagged limited record
-      Inner : Link (Event'access);
-      Size  : Integer;
-   end record;              
-        
-   Obj2 : Ptr := new Event'(Inner => (Event'access, 15),
-                            Size => Link'size);
-begin
-   null;                    
-end;