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; |