package Inline7_Pkg2 is

  generic
    D : Integer;
  function Calc (A : Integer) return Integer;

end Inline7_Pkg2;