I found this problem in Delphi and FPC, please test it and confirm if it is a bug.
-------------------
program test_abs_curr;
uses
sysutils;
var
a: Currency;
begin
a := 674.59;
if a<>abs(-a) then
writeln('not equal')
else
writeln('equal');
end.
-------------------
I am using last reversion of Lazarus, FPC 2.6
Best Regards
Zaher Dirkey
_______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
