diff --git a/tests/tbs/tbs0303.pp b/tests/tbs/tbs0303.pp
new file mode 100644
index 0000000000..a4c7b74c44
--- /dev/null
+++ b/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.