+ bug0303

bugs/bug0303.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.

bugs/readme.txt

@@ -392,3 +392,4 @@ Unfixed bugs:
 bug0262.pp   problems with virtual and overloaded methods
 bug0293.pp   no error with variable name = type name
 bug0299.pp   passing Array[0..1] of char by value to proc leads to problems
+bug0303.pp   One more InternalError(10) out of register !