Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
limited1_outer.ads
blob: d787ca8febe854bb75bf3244d0a7f177c1268998 [
file
] [
log
] [
blame
]
with
Limited1_Inner
;
use
Limited1_Inner
;
package
Limited1_Outer
is
type
Outer_Type
(
What
:
Boolean
)
is
record
Inner
:
Inner_Type
(
What
);
end
record
;
function
Make_Outer
return
Outer_Type
;
end
Limited1_Outer
;