1 2 3 4 5 6 7
with Discr16_Pkg; use Discr16_Pkg; package Discr16_Cont is type ES6a is new ET3a range E2..E4; end;