var
c: currency;
begin
c:=922337203685.47;
writeln(c:18:4,' = ', ' Trunc(c*1)=', Trunc(c*1));
c:=-92233720368547;
writeln(c:18:4,' = ', ' Trunc(c*1)=', Trunc(c*1));
end.
3.0.4 win32
922337203685.4700 = Trunc(c*1)=9223372036854700
-92233720368547. = Trunc(c*1)=-92233720368547
3.3.1 r42348 win32
922337203685.4700 = Trunc(c*1)=9223372036854700
-92233720368547. = Trunc(c*1)=-92233720368547
3.0.4 win64
C:\Users\Bart\LazarusProjecten\ConsoleProjecten>test
922337203685.4700 = Trunc(c*1)=-75
-92233720368547. = Trunc(c*1)=7580
3.3.1 r42348 win64
922337203685.4700 = Trunc(c*1)=-75
-92233720368547. = Trunc(c*1)=7580
Thanks for confirming it!
Then seems that bug reported here
https://bugs.freepascal.org/view.php?id=33439 and in related reports
is back again?
I have reported it as a new bug:
https://bugs.freepascal.org/view.php?id=36176
-Laco.
___
fpc-devel maillist - fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel