main module TESTNBYcu

//%set debug_tree = true
//%set debug_print_ccode = true
	use TEXTIO
	declare
		L_start = 1
		L_stop  = 9
		M_start = 1
		M_stop  = 9
		L_type	is packed array [L_start..L_stop] of char
		M	:  static array [M_Start..M_Stop] of L_type
	enddeclare

	    for M_index := M_start to M_stop do
		for L_index := L_start to L_stop do

		    for K := -8 to 6 do
			M [M_index][L_index] := $A
			if M [M_index][L_index] <> $A do
		    	    out_string (TTY, "Bad compare ")
		    	    out_string (TTY, ", M_index = ")
		    	    out_integer (TTY, M_Index)
		    	    out_string (TTY, ", L_index = ")
		    	    out_integer (TTY, L_Index)
		    	    out_record  (TTY)
			endif
		    endfor
		endfor
	    endfor
endmodule