Bug: for r in [0.001, 0.5, 0.7, 0.999]
## Summary
Ubuntu x64 20.x.
Free Pascal Compiler version 3.2.1-r49055 [2021/03/28] for x86_64
This app
```
uses
sysutils;
var
r: double;
ar: array of double = (0.001, 0.5, 0.7, 0.999);
begin
Write('good:');
for r in ar do Write(FloatToStr(r), ' ');
Writeln;
Write('bad:');
for r in [0.001, 0.5, 0.7, 0.999] do Write(FloatToStr(r), ' ');
Writeln;
end.
```
prints 0.5 as '0':
```
good:0.001 0.5 0.7 0.999
bad:0.001 0 0.7 0.999
```
Reported at forum https://forum.lazarus.freepascal.org/index.php/topic,58996.0.html
issue