1-- { dg-excess-errors "no code generated" }
2
3with Renaming2_Pkg2;
4with Renaming2_Pkg3;
5with Renaming2_Pkg4;
6
7package Renaming2_Pkg1 is
8
9  package Impl is new
10    Renaming2_Pkg3 (Base_Index_T => Positive, Value_T => Renaming2_Pkg2.Root);
11
12  use Impl;
13
14  package GP is new
15    Renaming2_Pkg4 (Length_T => Impl.Length_T, Value_T => Renaming2_Pkg2.Root);
16
17end Renaming2_Pkg1;
18