6 type Enum is (One, Two);
8 type Vector_T is array (Enum) of Integer;
10 Zero_Vector : constant Vector_T := (Enum => 0);
16 procedure Nested (Value : in out T; E : Enum; B : out Boolean) is
17 I : Integer renames Value.Vector(E);
22 Obj : T := (Vector => Zero_Vector);