gcc/testsuite/gnat.dg/nested_generic2_g1.adb

   1 package body Nested_Generic2_G1 is
   2
   3    procedure Debug (Msg : String; Prefix : String) is
   4    begin
   5       null;
   6    end;
   7
   8    package body Nested is
   9       procedure Debug (Msg : String) is
  10       begin
  11          Debug (Msg, Prefix);
  12       end;
  13    end Nested;
  14
  15 end Nested_Generic2_G1;