main module Tables
%define print
%set print=false
%if print
    use	TEXTIO
%otherwise
    %set debug_print_ccode=true
%endif
declare
    AAA: static integer
    Symbol_kind is [Joe, reserved_symbol, pattern_symbol]
    B : static integer initially 5
    SAM : static Symbol_kind initially reserved_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

    static_T	: static STE initially 
			STE (kind: reserved_symbol, symbol_type: 5)

    Dyn_T 	: STE ///initially
			///STE (kind: reserved_symbol, symbol_type: 5)
enddeclare

%if print
procedure Print_it ()
	out_line (TTY, " ")
	out_integer (TTY, AAA)
	out_record (TTY)
endprocedure
%endif
	AAA := Static_T .symbol_type
%if print
	Print_it ()
%endif
	Dyn_T := STE (kind: SAM , symbol_type: B)

	AAA := Dyn_T    .symbol_type
%if print
	Print_it()
%endif
endmodule