1generic
2   S : String;
3package 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
13end Nested_Generic2_G1;
14