freepascal.compiler/tests/tbs/tbs0348.pp

{$mode delphi}

type fluparr=array[0..1000] of longint;
     flupptr=^fluparr;

var flup : Flupptr;
    Flupresult : longint;
    flupa : fluparr;
begin
  flup:=@flupa;
  flupresult:=flup[5];
end.