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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235271 138bc75d-0d04-0410-961f-82ee72b054a4

2 files changed, 4 insertions, 21 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f869541b4eb..20d4df4f7c2 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 dc6f485b8fe..00000000000
--- 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;