runtime: allow preemption in fast syscall return

[official-gcc.git] / gcc / testsuite / gnat.dg / return4_pkg.adb

package body Return4_Pkg  is

  function Get_Value (I : Integer) return Rec is
    Value : Rec := (I1 => I, I2 => I, I3 => I);
  begin
    return Value;
  end;

end Return4_Pkg;