1package body Inline7_Pkg2 is
2
3  function Calc (A : Integer) return Integer is
4  begin
5    return D - A;
6  end;
7
8end Inline7_Pkg2;
9