[fpc-pascal] Currency and ABS(-674.59)

[Zaher Dirkey]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20120304/3d877acb/attachment.html>