[fpc-pascal] Why this evaluates on "if" wrong ?

[Milan Marusinec]

Hello folks,

This one looks pretty elementary, but to my big surprise
it doesn't work as I would expect.

I'd like to ask FreePascal compiler creators, how can I safely
evaluate double variables in case like this.

Sample program with comment is in attachement ...

Milano

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: floating_error_1_4.dpr
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20071028/b1abc78b/attachment.ksh>