Test suite results for test file tbs/tb0139.pp

Test run data :

Test file "tbs/tb0139.pp" information:

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

Detailed test run results:

Record count: 1

No log of 937590.

Source:

{ Old file: tbs0164.pp }
{ crash when using undeclared array index in with statement OK 0.99.8 (PFV) }

type t1r = record
             a, b: Byte;
           end;
     t2r = record
             l1, l2: Array[1..4] Of t1r;
           end;


Var r: t2r;
    counter : byte;

begin
  counter:=2;

  with r.l1[counter] Do
    Inc(a)
end.

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