blob: 3e9dc40f8b19b96d469e58c7afabc2293fb385e0 [file] [log] [blame]
-- { dg-do compile }
procedure aggr2 is
task type T_Task;
--
task body T_Task is begin null; end;
--
type Lim_Rec is record
T : T_Task;
end record;
--
generic
Formal : Lim_Rec;
package P_G is
end P_G;
--
package P is new P_G (Formal => (T => <>));
begin
null;
end;