Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
prot3_pkg.adb
blob: 07ae1829f602844f099b11ef6b10fa8862168bfa [
file
] [
log
] [
blame
]
package
body
Prot3_Pkg
is
protected
body
Prot
is
function
Fn
(
J
:
Short_Integer
)
return
Rec
is
begin
return
(
V1
=>
J
*
J
,
V2
=>
J
);
end
;
procedure
Foo
(
J
:
Short_Integer
)
is
begin
Val
:=
Fn
(
J
);
end
;
end
Prot
;
end
Prot3_Pkg
;