[fpc-pascal] Currency and Int64 casting

[LacaK]

> Moreover:
>
> var
>   c: currency;
>   i1: int64;
>   i2: int64 absolute c;
>
> begin
>   c := 68719476736;
>   i1 := Trunc(c*10000);
>   writeln(c,', ',i1,', ',i2);
>   readln;
> end.
>
> Win32 (as expected):  6.871947673600000000E+10, 687194767360000, 
> 687194767360000
> Win64 (wrong)          :  6.871947673600000000E+10, 
> 53550614319         , 687194767360000
>
I have created bug report:
https://bugs.freepascal.org/view.php?id=33758

> L.