gcc/testsuite/gnat.dg/inline6_pkg.adb

package body Inline6_Pkg is

  procedure Test (I : Integer) is

    function F (J : Integer) return Integer is
    begin
      return I - J;
    end;
    pragma Inline (F);

  begin
    if I /= F (I) then
      raise Program_Error;
    end if;
  end;

end Inline6_Pkg;