freepascal.compiler/bugs/bug0157.pp

program write_it;
var x:real;
begin
write(x:5.2);
end.