[fpc-devel] Currency bug and FPC 3.2.0

[LacaK]

>>> var
>>>     c: currency;
>>> begin
>>>     c:=922337203685.47;
>>>     writeln(c:18:4,' = ', ' Trunc(c*10000)=', Trunc(c*10000));
>>>     c:=-92233720368547;
>>>     writeln(c:18:4,' = ', ' Trunc(c*10000)=', Trunc(c*10000));
>>> end.
>> 3.0.4 win32
>>   922337203685.4700 =  Trunc(c*10000)=9223372036854700
>> -92233720368547.0000 =  Trunc(c*10000)=-922337203685470000
>>
>> 3.3.1 r42348 win32
>>   922337203685.4700 =  Trunc(c*10000)=9223372036854700
>> -92233720368547.0000 =  Trunc(c*10000)=-922337203685470000
>>
>>
>> 3.0.4 win64
>> C:\Users\Bart\LazarusProjecten\ConsoleProjecten>test
>>   922337203685.4700 =  Trunc(c*10000)=-75
>> -92233720368547.0000 =  Trunc(c*10000)=7580
>>
>> 3.3.1 r42348 win64
>>   922337203685.4700 =  Trunc(c*10000)=-75
>> -92233720368547.0000 =  Trunc(c*10000)=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.