1package body Inline14_Pkg is
2
3  I : Integer;
4
5  generic procedure Inner;
6
7  procedure Inner is
8  begin
9    I := 0;
10  end;
11
12  procedure My_Inner is new Inner;
13
14  procedure Proc renames My_Inner;
15
16end Inline14_Pkg;
17