gcc/testsuite/gnat.dg/limited_with3.ads

   1 with Limited_With3_Pkg1;
   2 with Limited_With3_Pkg2;
   3 limited with Limited_With3_Pkg3;
   4
   5 package Limited_With3 is
   6
   7      procedure Dummy;
   8
   9      type T is tagged private;
  10
  11 private
  12
  13      package My_Q is new Limited_With3_Pkg1 (Limited_With3_Pkg2.T);
  14
  15      type T is tagged null record;
  16
  17 end Limited_With3;