И тут подумал - может он уже починен давно? У меня FPC 2.0.2.
- Код: Выделить всё
program test;
var a, b: Boolean; s: Single;
begin
a := False; b := True;
s := 0.1;
writeln((Ord(a)-Ord(b)) * s);
end.
Выдает 4.2949673590000000E+0008, вместо -0.1.
На более свежих тоже так?