Test suite results for test file webtbs/tw3207.pp

Test run data :

Test file "webtbs/tw3207.pp" information:

t_id 1319
t_adddate 2004/07/13
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 937523.

Source:

{ Source provided for Free Pascal Bug Report 3207 }
{ Submitted by "Marc Weustink" on  2004-07-11 }
{ e-mail: marc@freepascal.org }
program floatres;

{$mode objfpc}

function CheckReal: Real;
begin
  Result := 1/2;
end;

function CheckDouble: Double;
begin
  Result := 1/2;
end;

function CheckExtended: Extended;
begin
  Result := 1/2;
end;

var
  n: Integer;

begin
  for n := 1 to 1000 do CheckReal;

  for n := 1 to 1000 do CheckDouble;

  for n := 1 to 1000 do CheckExtended;
end.

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