% set debug_print_ccode = true
main module TESTstruc
    declare
	Which_one is [Test_1, Test_2, Test_3]
	A is
	     structure
		My_tag : which_one
		my_fill : 8 bit integer
		select my_tag from
		    case Test_1:
			F : array [2..3] of 5 bit integer
			C : packed array [1..4] of char
		    case Test_2:
			J : 12 bit integer
			Hole : 14 bit integer
		endselect
	    endstructure

	B : A initially A (My_tag: test_1)
    enddeclare
endmodule