gcc/testsuite/gnat.dg/specs/root-level_1-level_2.ads


1
2
3
4
5
6
7

package Root.Level_1.Level_2 is

   type Level_2_Type (First  : Natural;
                      Second : Natural) is new
     Level_1.Level_1_Type (First => First, Second => Second) with null record;

end Root.Level_1.Level_2;