parent
6928628c9f
commit
ba6dccf8f9
|
@ -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;
|
|
@ -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;
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue