begin
longreal x; real y
integer i,j
y=-1.999
x=y
i=trunc(x)
j=trunc(y)
if i=j=-1 then printstring("Test OK") else monitor
endofprogram