freepascal.compiler/bugs/bug0303.pp

  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.