* gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>:

[official-gcc.git] / 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;