PR ipa/83051
[official-gcc.git] / gcc / testsuite / gnat.dg / limited_with3.ads
blobc348d90444cea96fb4cda5a4f41feedd1f12da90
1 with Limited_With3_Pkg1;
2 with Limited_With3_Pkg2;
3 limited with Limited_With3_Pkg3;
5 package Limited_With3 is
7 procedure Dummy;
9 type T is tagged private;
11 private
13 package My_Q is new Limited_With3_Pkg1 (Limited_With3_Pkg2.T);
15 type T is tagged null record;
17 end Limited_With3;