fpcsrc/tests/tbs/tb0293.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ 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.