main module varstruc
	declare
		x : integer
		y is structure
			select x from
			case 1:	z : array [1..10 ] of integer
			case 2: w : real
			endselect
		endstructure
		zz : static y

	enddeclare

	x := 1
	zz.z[1] := 10
	zz.w := 1.1	
endmodule