main module Tables
%set debug_print_ccode=true
declare
    AAA: static integer
    Symbol_kind is [Joe, reserved_symbol, pattern_symbol]

    STE is structure		
	    kind: Symbol_kind
	    select kind from
		case reserved_symbol:
		    symbol_type: 8 bit integer
		case pattern_symbol:
		    JJ : array [1..2] of integer
	    endselect
	endstructure

    STT is array [1..1] of STE		// symbol table type
    ST: static STT initially table STT (
	STE (kind: reserved_symbol, symbol_type: 3))

enddeclare

	AAA := ST [1] .symbol_type
endmodule