blob: 6cf2a416ad828b0073d02d1ca4ffb0142a549515 [file] [log] [blame]
with Nested_Generic2_G1;
with Nested_Generic2_G2;
package Nested_Generic2 is
package My_G1 is new Nested_Generic2_G1 ("Lewis");
package My_G2 is new Nested_Generic2_G2 (T => Integer, P => My_G1);
procedure Dummy;
private
package My_Nested is new My_G1.Nested ("Clark");
end Nested_Generic2;