From b467280092bc61c3e5ee7724bed91d7e3aab6e5b Mon Sep 17 00:00:00 2001
From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 20 Apr 2016 12:28:48 +0000
Subject: [PATCH] 	* 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
---
 gcc/testsuite/ChangeLog         |  4 ++++
 gcc/testsuite/gnat.dg/self1.adb | 21 ---------------------
 2 files changed, 4 insertions(+), 21 deletions(-)
 delete mode 100644 gcc/testsuite/gnat.dg/self1.adb

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;    
-- 
2.47.3