main module TESTREALA

	use TEXTIO


	declare
		R : real
	enddeclare

	R := 1.0

	out_real	(TTY, R)
	out_record	(TTY)
endmodule