gcc/testsuite/gnat.dg/inline7_pkg2.adb

package body Inline7_Pkg2 is

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

end Inline7_Pkg2;