ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/limited1_outer.ads

10 lines
225 B
Ada

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;