main module TEST32
//%set debug_print_ccode = true
    use TEXTIO
    declare
	Constant_I 	= 1234567
	Constant_J 	= 1234566
	I 		: static 32 bit integer 
	J		: static 32 bit integer initially Constant_J

	Max_Loop	= 123456
    enddeclare

    procedure TEST_COMPARES
	param
	    I : in val 32 bit integer
	    J : in val 32 bit integer
	endparam
	if I >=  J do
	    out_line (TTY,	"I Greater than or equal to J")
	otherwise
	    out_line (TTY,	"I Less than J")
	endif
	if I <=  J do
	    out_line (TTY,	"I Less than or equal to J")
	otherwise
	    out_line (TTY,	"I Greater than J")
	endif

	if I > J do
	    out_line (TTY,	" I Greater than J")
	otherwise
	    out_Line (TTY,	" I Less than or equal to J")
	endif

	if I < J do
	    out_line (TTY,	" I Less than J")
	otherwise
	    out_line (TTY,	" I Greater than or equal to J")
	endif
    endprocedure

    procedure TEST_CONSTANT_COMPARES ()
	if Constant_I >=  Constant_J do
	    out_line (TTY,	"I Greater than or equal to J")
	otherwise
	    out_line (TTY,	"I Less than J")
	endif
	if Constant_I <=  Constant_J do
	    out_line (TTY,	"I Less than or equal to J")
	otherwise
	    out_line (TTY,	"I Greater than J")
	endif

	if Constant_I > Constant_J do
	    out_line (TTY,	" I Greater than J")
	otherwise
	    out_Line (TTY,	" I Less than or equal to J")
	endif

	if Constant_I < Constant_J do
	    out_line (TTY,	" I Less than J")
	otherwise
	    out_line (TTY,	" I Greater than or equal to J")
	endif
    endprocedure


    I := Constant_I

    TEST_COMPARES (I, J)
    TEST_COMPARES (Constant_I, Constant_J)
    TEST_CONSTANT_COMPARES ()

    // test a big for loop
    declare
	Start : 32 bit integer initially 1
	Count : 32 bit integer initially 0
    enddeclare

    for K := Start to Max_Loop do
	Count *= +1
    endfor

    if Count <> Max_Loop do
	out_line 	(TTY,"Big loop error")
	out_string 	(TTY, "Count = ")
	out_integer 	(TTY, Count)
	out_string 	(TTY, " Max_Loop = ")
// following causes assemble errors
	out_integer 	(TTY, Max_Loop)
	out_record	(TTY)
    otherwise
	out_line (TTY, "Big Loop OK")
    endif
endmodule