Hi, Is this a bug in fpc? (tested with 2.6.4)
program test; {$ifdef fpc}{$mode objfpc}{$endif} {$H+} uses Classes, SysUtils, Math; var S: Single; E: Extended; D: Double; begin writeln('Single'); S := SimpleRoundTo(12345,3); writeln(S); S := RoundTo(12345,3); writeln(S); writeln; writeln('Double'); D := SimpleRoundTo(12345,3); writeln(D); D := RoundTo(12345,3); writeln(D); writeln; writeln('Extended'); E := SimpleRoundTo(12345,3); writeln(E); E := RoundTo(12345,3); writeln(E); writeln; writeln('FPC''s pick'); writeln(SimpleRoundTo(12345,3)); writeln(RoundTo(12345,3)) end. Output comiled with Delphi 7 Single 1.20000000000000E+0004 1.20000000000000E+0004 Double 1.20000000000000E+0004 1.20000000000000E+0004 Extended 1.20000000000000E+0004 1.20000000000000E+0004 Delphi's pick 1.20000000000000E+0004 1.20000000000000E+0004 (It seems D7 only returns Extended) Output compiled with fpc 2.6.4 Single 1.199999902E+04 1.200000000E+04 Double 1.19999990234375E+004 1.20000000000000E+004 Extended 1.1999999023437500E+0004 1.2000000000000000E+0004 FPC's pick 1.199999902E+04 1.200000000E+04 Bart _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal