<div dir="ltr">I found this problem in Delphi and FPC, please test it and confirm if it is a bug.<br><br>-------------------<br>program test_abs_curr;<br>uses<br>  sysutils;<br><br>var<br>  a: Currency;<br>begin<br>  a := 674.59;<br>
  if a<>abs(-a) then<br>    writeln('not equal')<br>  else<br>    writeln('equal');<br><br>end.<br>-------------------<br clear="all"><br><div dir="ltr">I am using last reversion of Lazarus, FPC 2.6<br>
<br>Best Regards<br>Zaher Dirkey</div><br>
</div>