freepascal.compiler/tests/tbf/tb0031.pp

{ %FAIL }
{ Old file: tbf0164.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;

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