blob: d787ca8febe854bb75bf3244d0a7f177c1268998 (
plain)
1
2
3
4
5
6
7
8
9
|
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;
|