Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
return4_pkg.adb
blob: 0b59221c1494995a0774b839bac0c3a5cbe9e97a [
file
] [
log
] [
blame
]
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
;