18 Nov
2002
18 Nov
'02
9:40 a.m.
Hi Folks!
The following comparision between a const and a Real value does not work as expected:
program Fail2;
const ConstSize = 1.2;
var VarSize: Real = 1.2;
begin if ConstSize <> VarSize then begin WriteLn (ConstSize - VarSize : 0 : 20); WriteLn ('Fails') end else WriteLn ('Works') end.
Output: ======= 0.00000000000000004445 Fails
Version: ======== Reading specs from /usr/local/bin/../lib/gcc-lib/i686-pc-linux-gnu/2.95.2/specs gpc version 20021111, based on gcc-2.95.2 19991024 (release)
Eike