gcc/testsuite/gnat.dg/inline8_pkg2.adb

package body Inline8_Pkg2 is

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

end Inline8_Pkg2;