tests/tbs/tb0139.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{ 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.