compiler: give error for non-int arguments to make

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

package Return4_Pkg is

  type Rec is record
    I1, I2, I3 : Integer;
  end record;

  function Get_Value (I : Integer) return Rec;

end Return4_Pkg;