Cserzo Miklos wrote:
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?
Just guessing, try this ... Frank -- Frank Heckenbach, frank@g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html GPC download signing key: 51FF C1F0 1A77 C6C2 4482 4DDC 117A 9773 7F88 1707