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

From-SVN: r235271

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f869541b4eb85b90cf9b5d24f5b433f3caf02381..20d4df4f7c224048d0eb0d4a2eba4117f7bc2169 100644 (file)
--- 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 (file)
index dc6f485..0000000
--- 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;