Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
limited_with2.ads
blob: 4f076d4b8ec2655edcebaebddbcb474c2c5c4c7d [
file
] [
log
] [
blame
]
with
Limited_With2_Pkg1
;
package
Limited_With2
is
type
Rec1
is
record
F
:
Limited_With2_Pkg1
.
Rec2
;
end
record
;
function
Func
(
Val
:
Rec1
)
return
Limited_With2_Pkg1
.
Rec2
;
end
Limited_With2
;