Round() problem (64-bit version)

4 Jul 2003

      Hi Folks,

the tests with the 64-bit version binaries are in progress. The following
code demonstrates a bug related to the round() function:

program bugtest;

var
 i,j,k:integer;
 r:real;

begin

 for i:= 1 to 100 do begin
  r:=random;
  j:=trunc(r*100);
  k:=round(r*100);
  writeln(j:4,k:4,r*100:4:0,r:8:4);
 end;

end.

In 32-bit the code generates the correct output but in 64-bit the value of
"k" is always zero. The other columns of the result is correct. Any idea
why, any suggestion for further tests?

Cheers,

miklos

Round() problem (64-bit version)

Cserzo Miklos