--  { dg-do compile }

with Generic_Inst4_Inst;
procedure Generic_Inst4 is
begin
   null;
end;