Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt23_pkg.adb
blob: 8a647d507c927d3355c45b3e70d0f26637beb3ed [
file
] [
log
] [
blame
]
package
body
Opt23_Pkg
is
function
Get
(
R
:
Rec
;
I
:
Positive
;
M
:
Natural
)
return
Path
is
begin
return
R
.
Val
(
I
)
(
M
);
end
;
end
Opt23_Pkg
;