1with Inline7_Pkg2;
2
3package body Inline7_Pkg1 is
4
5  procedure Test (I : Integer) is
6
7    function F is new Inline7_Pkg2.Calc (I);
8
9  begin
10    if I /= F (I) then
11      raise Program_Error;
12    end if;
13  end;
14
15end Inline7_Pkg1;
16