From d7aa24e4bc0e4a2aef9af3d020c2ba98e57be399 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 20 Apr 2016 12:28:48 +0000 Subject: [PATCH] * gnat.dg/self1.adb: Remove now incorrect test. From-SVN: r235271 --- 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 f869541b4eb..20d4df4f7c2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2016-04-20 Arnaud Charlet + + * gnat.dg/self1.adb: Remove now incorrect test. + 2016-04-20 Bin Cheng * 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; -- 2.30.2