17 lines
213 B
Ada
17 lines
213 B
Ada
|
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;
|