module T
%set debug_print_ccode=true
export ST,st2
declare
Pattern is structure
	Ptag: 8 bit integer	
	class: 32 bit integer		
    endstructure

    STE is structure		
	    kind: integer range 1..2	
	    select kind from
		case 1:
		    symbol_type: integer range 1..2	
		case 2:
		    pattern: Pattern
	    endselect
	endstructure
st = STE(kind: 1, symbol_type: 1)
st2 = STE(kind: 1, symbol_type: 2)
enddeclare
endmodule