bug0303 copied

tests/tbs/tbs0303.pp

@@ -0,0 +1,21 @@
+
+  type
+    intarray = array[1..1000,0..1] of longint;
+
+  procedure test;
+   var
+     ar : intarray;
+     i : longint;
+  procedure local;
+   begin
+    i:=4;
+    ar[i,0]:=56;
+    ar[i-1,0]:=pred(ar[i,0]);
+   end;
+  begin
+    local;
+  end;
+
+begin
+  test;
+end.