mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 03:59:27 +02:00
16 lines
228 B
ObjectPascal
16 lines
228 B
ObjectPascal
{ 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.
|