main module REALTEST
	use TEXTIO

declare
	I : 16 bit integer
	R : real
enddeclare

	R := -3.3
	I := integer (R)

	R := real (I)

	out_integer (TTY, I)
	out_record	(TTY)

	out_real  (TTY, R)
	out_record	(TTY)


endmodule