Test suite results for test file tbs/tb0110.pp

Test run data :

Test file "tbs/tb0110.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940700.

Source:

{ Old file: tbs0129.pp }
{ endless loop with while/continue                      OK 0.99.6 (FK) }

var
 e:boolean;
 a:integer;
begin
 e:=true;
 a:=3;
 while (a<5) and e do begin
  e:=false;
  write('*');
  continue;
 end;
end.

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