fpcsrc/tests/tbs/tb0054.pp


1
2
3
4
5
6
7
8
9
10
11

{ 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.