Test suite results for test file tbs/tb0059.pp

Test run data :

Test file "tbs/tb0059.pp" information:

t_id 314
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948290.

Source:

{ Old file: tbs0066.pp }
{  shows that Round doesn't work correctly. (NOT A bugs) OK 0.99.1 }

Program Example54;

{ Program to demonstrate the Round function. }

begin
  Writeln (Round(123.456));  { Prints 124  }
  Writeln (Round(-123.456)); { Prints -124 }
  Writeln (Round(12.3456));  { Prints 12   }
  Writeln (Round(-12.3456)); { Prints -12  }
end.

Link to SVN view of tbs/tb0059.pp source.