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 (file)
index e5a0f9f..0000000
--- 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 (file)
index 89f9702..0000000
--- 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 8f5e5150f8f06168ab60f453c59b6f6bcca085f5..d033c9abce2b78c57fbad189e07d7250a7e25b72 100644 (file)
--- 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