blob: 0b7192803846bb7243d805d8e9c5edbb714163dc [file] [log] [blame]
package body Inline14_Pkg is
I : Integer;
generic procedure Inner;
procedure Inner is
begin
I := 0;
end;
procedure My_Inner is new Inner;
procedure Proc renames My_Inner;
end Inline14_Pkg;