main module TESTNBYM

//%set debug_tree = true
%set debug_print_ccode = true
	use TEXTIO
	export N

	declare
		L_start = 1
		L_stop  = 10
		M_start = 1
		M_stop  = 10
		N_Start = 1
		N_stop  = 10
		L_type	is packed array [L_start..L_stop] of 4 bit integer
		M_type	is packed array [M_Start..M_Stop] of L_type
		N	:  static packed array [N_start..N_Stop] of M_type
		K	: integer initially 0
		K_Max	= 7

	enddeclare

	for N_index := N_start to N_stop do 
	    for M_index := M_start to M_stop do
		for L_index := L_start to L_stop do
			N [N_index][M_index][L_index] := K
			if N [N_index][M_index][L_index] <> K do
		    	    out_string (TTY, "Bad compare , N_index = ")
		    	    out_integer (TTY, N_Index)
		    	    out_string (TTY, ", M_index = ")
		    	    out_integer (TTY, M_Index)
		    	    out_string (TTY, ", L_index = ")
		    	    out_integer (TTY, L_Index)
		    	    out_string (TTY, " K = ")
		    	    out_integer (TTY, K)
		    	    out_record  (TTY)
			endif
			K *= +1
			if K > K_Max do ; K:= 0; endif
		endfor
	    endfor
	endfor
endmodule