freepascal.compiler/bugs/bug00061.pp

var
   r : double;
   s : string;

begin
   r:=1234.0;
   str(r,s);
end.