Error in FormatFloat (SysUtils), the plus or minus sign in exponet between E and digits err
Original Reporter info from Mantis: Klaus1
-
Reporter name:
Original Reporter info from Mantis: Klaus1
- Reporter name:
Description:
See the test console program. In the old compiler version FPC 3.04 is all ok.
Steps to reproduce:
Here a test console program. In version 3.04 is the display ok.
program Fehlertest;
uses SysUtils;
const
sFormat = '+0.00000E+00;-0.00000E+00;+0.00000E+00';
var
c :Char;
x :array[1..6] of Double =(1.0,-3.2345,3.6,9.023,-0.4567,0.0);
procedure press;
var i :Integer;
begin
for i := 1 to 6 do
writeln(FormatFloat(sFormat,x[i]));
end;
begin
press;
read(c);
end.
Mantis conversion info:
- Mantis ID: 38323
- Version: 3.2.0
- Fixed in revision: 34420 (#4e137626)