fpc/tests/tbs/tb0439.pp

{$mode delphi}

var
  a : array[0..32] of char;
  p : pchar;
  i : integer;
begin
  p:=a+i;
end.