[fpc-devel] Bug 29760 on FPC 3.0 Win64

[Mark Morgan Lloyd]

LacaK wrote:
> Hi,
> investigating bug #29760 I reduced bug to:
> 
> var
>   c: currency;
>   d: double;
> 
> begin
>   c := 123.45;
>   d := 100;
>   writeln(c, '*', d, '=', c*d); // result of multiply is wrong = 123450000
> end.
> 
> This happens only on Win64 with FPC 3.0
> 
> Can somebody please check and confirm ?

Faulty on RPi2 but not on AMD64.

fpc test.pas
Free Pascal Compiler version 3.0.0 [2015/12/25] for arm
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for ARMHF
Compiling test.pas
Assembling program
Linking test
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
11 lines compiled, 1.3 sec
0 1>markMLl at pye-dev-00:~$ ./test
  1.234500000000000000E+02* 1.0000000000000000E+002= 
1.234500000000000000E+08


fpc test.pas
Free Pascal Compiler version 3.0.1 [2015/08/31] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling test.pas
Linking test
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
10 lines compiled, 0.4 sec
0 1>markMLl at pye-adm-04:~$ ./test.pas
-bash: ./test.pas: Permission denied
126 1>markMLl at pye-adm-04:~$ ./test
  1.234500000000000000E+02* 1.0000000000000000E+002= 
1.234500000000000000E+04

-- 
Mark Morgan Lloyd
markMLl .AT. telemetry.co .DOT. uk

[Opinions above are the author's, not those of his employers or colleagues]