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