Test suite results for test file webtbs/tw3708.pp

Test run data :

Test file "webtbs/tw3708.pp" information:

t_id 1506
t_adddate 2005/03/05
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

program prec;

uses SysUtils;

var
  i:Integer;
  v: Double;
  s: string;

begin
  v := 1.0000000000001;
  for i := 1 to 20 do
    begin
      s := FloatToStrF(v, ffGeneral, i, 0);
      WriteLn(i, ' ', s);
      if (i < 13) then
        begin
          if (s <> '1') then
            begin
              writeln('error');
              halt(1);
            end;
        end
      else
        if (s <> '1.0000000000001') then
          begin
            writeln('error');
            halt(1);
          end;
    end;
end.

Link to SVN view of webtbs/tw3708.pp source.