main module TEST1BIT
%set debug_tree = true
%set debug_print_ccode = true
//	use TEXTIO
	declare
		L	: static packed array [0..128] of 4 bit integer
		I	: static 16 bit integer
	enddeclare

	I := 0
//	L [I] := 4
	if L [I] <> 4 do
//	    out_line (TTY, "error")
	endif



//	for J := 1 to 128 do
//	    for K := -8 to 7 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