[fpc-devel] Currency bug and FPC 3.2.0

[Bart]

On Fri, Oct 11, 2019 at 7:29 AM LacaK <lacak at zoznam.sk> wrote:
> 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

-- 
Bart