gcc/testsuite/gnat.dg/nested_generic2_g1.ads

   1 generic
   2    S : String;
   3 package Nested_Generic2_G1 is
   4
   5    procedure Debug (Msg : String; Prefix : String);
   6
   7    generic
   8       Prefix : String;
   9    package Nested is
  10       procedure Debug (Msg : String);
  11    end Nested;
  12
  13 end Nested_Generic2_G1;