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

	J := 0
//	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