freepascal.compiler/tests/tbs/tb0054.pp

{ Old file: tbs0061.pp }
{  shows wrong errors when compiling (NOT A bugs)        OK 0.99.1 }

var
   r : double;
   s : string;

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