main module testenum
declare
    a is [a1,a2,a3,a4]
    struct is packed structure
	b : a
	c : packed array [1..4] of a
    endstructure
    r : struct
enddeclare
r.b := a4
r.c[2] := a2
r.c[3] := a3
endmodule