PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / return4_pkg.adb
blob0b59221c1494995a0774b839bac0c3a5cbe9e97a
1 package body Return4_Pkg is
3 function Get_Value (I : Integer) return Rec is
4 Value : Rec := (I1 => I, I2 => I, I3 => I);
5 begin
6 return Value;
7 end;
9 end Return4_Pkg;