package Inline8_Pkg2 is

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

end Inline8_Pkg2;