t_id
266
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456236563 | 936990 | True | False | Successfully run |
Record count: 1
{ 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.