+ bug0164

bugs/bug0164.pp

@@ -0,0 +1,14 @@
+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.

bugs/readme.txt

@@ -218,3 +218,4 @@ bug0161.pp   internal error when trying to create a set with another set as
              its element (instead of a syntax error)
 bug0162.pp   continue in repeat ... until loop doesn't work correct
 bug0163.pp   missing <= and >= operators for sets.
+bug0164.pp   crash when using undeclared array index in with statement