-- { dg-do compile }
with Gen_Formal_Pkg_A, Gen_Formal_Pkg_B, Gen_Formal_Pkg_W;
procedure Gen_Formal_Pkg is
package AI is new Gen_Formal_Pkg_A (Long_Float);
package WI is new Gen_Formal_Pkg_W (AI);
begin
null;
end;
-- { dg-do compile }
with Gen_Formal_Pkg_A, Gen_Formal_Pkg_B, Gen_Formal_Pkg_W;
procedure Gen_Formal_Pkg is
package AI is new Gen_Formal_Pkg_A (Long_Float);
package WI is new Gen_Formal_Pkg_W (AI);
begin
null;
end;