main module TESTarray
    declare
	Joe is structure
	    A : 8 bit integer initially 3
	endstructure
	C : packed array [1..3] of joe
    enddeclare
    C [1].A := 4
endmodule