main module TEST4BIT
//%set debug_tree = true
//%set debug_print_ccode = true
	use TEXTIO
	declare
		Start_Index = 0
		Stop_Index = 128
		L	: packed array [start_Index..Stop_Index] of 2 bit integer
	enddeclare

	for J := Start_Index to Stop_Index do
	    for K := -1 to 1 do
		L [J] := K
		if L [J] <> K do
		    out_string (TTY, "Bad compare , J = ")
		    out_integer (TTY, J)
		    out_string (TTY, " K = ")
		    out_integer (TTY, K)
		    out_record  (TTY)
		endif
	    endfor
	endfor
endmodule