main module TEST32D

//  Test 32 bit integer operations

%set debug_print_ccode = true
	use 	TEXTIO

    declare
	total	: static 32 bit integer
	I32	: static 32 bit integer
	J16	: static 16 bit integer

    enddeclare

	J16 := 3
	I32 := J16
	Total := I32
	Total *= +I32

	out_string	(TTY, "Total = ")
	out_integer	(TTY, Total)
	out_record	(TTY)

endmodule