Update test.

From-SVN: r128778

gcc/testsuite/gnat.dg/aggr5.ads

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

gcc/testsuite/gnat.dg/aggr6.adb

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

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