1 -- { dg-excess-errors "no code generated" }
5 type Length_T
is range <>;
7 with function Next
return Length_T
is <>;
9 type Value_T
is private;
11 with function Value
(L
: Length_T
) return Value_T
is <>;
13 package Renaming2_Pkg4
is
19 type Slave_T
is tagged null record;
21 function Next_Value
return Value_T
;