PASCAL BUG?

[utzoo!decvax!harpo!floyd!vax135!ariel!houti!lime!burdvax!coltoff]

Here is one that is driving us crazy tracking down the problem.
Can someone help us out.

The following PASCAL program

program bug (input,output);
const
    x1 = 200;
    x2 = 200.0;
var
    x: real;
begin
    x := x1;
    write(x:6:3);
    x := x2;
    write(x:6:3);
end.

produces this output

 -56.000 200.000

This is clearly not what I would expect and while it isn't difficult
to work around in the programs I deal with it is still a pain in the
gazabahs. As they say, `Thanks in advance'

Joel Coltoff
lime!burdvax!coltoff