gcc/testsuite/gnat.dg/nested_generic2.ads

   1 with Nested_Generic2_G1;
   2 with Nested_Generic2_G2;
   3
   4 package Nested_Generic2 is
   5
   6    package My_G1 is new Nested_Generic2_G1 ("Lewis");
   7    package My_G2 is new Nested_Generic2_G2 (T => Integer, P => My_G1);
   8
   9    procedure Dummy;
  10
  11 private
  12    package My_Nested is new My_G1.Nested ("Clark");
  13 end Nested_Generic2;