aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/limited1_outer.ads
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;