// A real number must be multiplied by 1.0 before it can be
// converted correctly to an integer.
// The problem is that Praxis doesnt put the X into
// a register before doing the conversion yet the
// conversion routine expects it to be there.

main module FPCONV
    use	TEXTIO

    declare
	A : static 16 bit integer
	R : static real
    enddeclare

    R := 2.0

    A := integer (1.0)

    out_string	(TTY,	"A = ")
    out_integer	(TTY,	A)
    out_record	(TTY)
    out_record	(TTY)
endmodule