Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
limited_with2.adb
blob: b9c5417a627b7f1503ed5b7117194dade14732b0 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Limited_With2_Pkg2
;
package
body
Limited_With2
is
function
Func
(
Val
:
Rec1
)
return
Limited_With2_Pkg1
.
Rec2
is
begin
return
Val
.
F
;
end
;
end
Limited_With2
;