blob: fe37b653eaaf94f4c05b762c2bf33053b4bc85a3 [file] [log] [blame]
-- { dg-do compile }
with Array38_Pkg; use Array38_Pkg;
procedure Array38 is
function My_F is new F (Index, Byte, Bytes, Integer);
begin
null;
end;