%set debug_print_ccode = true
main module USEINIT
%if debug_print_ccode
%otherwise
    use TEXTIO
%endif
    use USEINIT1

    declare
        GOOD_Struct is structure
	    GOOD_DATA : integer initially 6
	endstructure
	BAD : static array [1..4] of BAD_STruct
	GOOD : static array [1..4] of GOOD_Struct
    enddeclare

%if debug_print_ccode
%otherwise
    for I := 1 to 4 do
	out_integer (TTY, BAD [i] . BAD_data)
	out_string (TTY , "<HT>")
	out_integer (TTY, GOOD [i] . GOOD_data)
	out_record (TTY)
    endfor
%endif
endmodule