main module TEST32K

	use	TEXTIO

	declare
	    I : static 16 bit integer
	    J : static 32 bit integer
	enddeclare

	I := -456
	J := I
	out_integer (TTY, I)
	out_record  (TTY)
endmodule