From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 26 Sep 2007 10:41:08 +0000 (+0200)
Subject: Update test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ba6dccf8f9334926354056be32b55a09c7ead740;p=gcc.git

Update test.

From-SVN: r128778
---

diff --git a/gcc/testsuite/gnat.dg/aggr5.ads b/gcc/testsuite/gnat.dg/aggr5.ads
deleted file mode 100644
index e5a0f9f4b55..00000000000
--- a/gcc/testsuite/gnat.dg/aggr5.ads
+++ /dev/null
@@ -1,7 +0,0 @@
-        
-package aggr5 is
-   type Event is limited interface;
-   type Event_Access is access all Event'Class;
-   type Q_Action_Event is limited interface and Event;
-   function Build (X : integer) return Event_Access;
-end aggr5;
diff --git a/gcc/testsuite/gnat.dg/aggr6.adb b/gcc/testsuite/gnat.dg/aggr6.adb
deleted file mode 100644
index 89f97025e21..00000000000
--- a/gcc/testsuite/gnat.dg/aggr6.adb
+++ /dev/null
@@ -1,13 +0,0 @@
---  { dg-do compile }
-
-with aggr5;
-procedure aggr6 is
-   procedure Block is
-      Wrapper : aliased aggr5.Q_Action_Event'Class
-        := aggr5.Q_Action_Event'Class (aggr5.Build (0));
-   begin
-      null;
-   end; 
-begin
-   null;
-end;    
diff --git a/gcc/testsuite/gnat.dg/renaming1.adb b/gcc/testsuite/gnat.dg/renaming1.adb
index 8f5e5150f8f..d033c9abce2 100644
--- a/gcc/testsuite/gnat.dg/renaming1.adb
+++ b/gcc/testsuite/gnat.dg/renaming1.adb
@@ -3,7 +3,6 @@
 
 with Text_IO;
 use Text_IO;
-use type Text_IO.File_Access;
 package body renaming1 is
    procedure Fo (A : Text_IO.File_Access) is
    begin