package body Inline8_Pkg2 is
function Calc (A : Integer) return Integer is
begin
return D - A;
end;
end Inline8_Pkg2;