|
package discr3 is
|
|
type E is range 0..255;
|
|
type R1 is range 1..5;
|
|
type R2 is range 11..15;
|
|
type S1 is array(R1 range <>) of E;
|
|
type S2 is array(R2 range <>) of E;
|
|
V1 : S1( 2..3) := (0,0);
|
|
V2 : S2(12..13) := (1,1);
|
|
subtype R3 is R1 range 2..3;
|
|
V3 : S1 (R3);
|
|
end discr3;
|