Test suite results for test file tbs/tb0006.pp

Test run data :

Test file "tbs/tb0006.pp" information:

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

Detailed test run results:

Record count: 1

No log of 934979.

Source:

{ Old file: tbs0007.pp }
{  tests the infinity loop when using byte counter     OK 0.9.2 }

uses
  erroru;

var
   count : byte;
   test : longint;
begin
   test:=0;
   for count:=1 to 127 do
     begin
        inc(test);
        writeln(count,'. loop');
        if test>127 then
          Error;
     end;
end.

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