Test suite results for test file webtbs/tw1896.pp

Test run data :

Test file "webtbs/tw1896.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940917.

Source:

var
  value:real;
  fin:text;
begin
  assign(fin,'tw1896.tmp');
  rewrite(fin);
  writeln(fin,'12.3');
  writeln(fin,'13.2');
  close(fin);

  assign(fin,'tw1896.tmp');
  reset(fin);
  while not eof(fin) do
  begin
  read(fin,value);
  writeln(value)
  end;
  { Delphi returns 0 as last value }
  if value<>0 then
   begin
     writeln('Error');
     halt(1);
   end;
end.

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