freepascal.compiler/tests/tbs/tb0293.pp

{ Old file: 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.