mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
21 lines
259 B
ObjectPascal
21 lines
259 B
ObjectPascal
type
|
|
trec=record
|
|
a,b : longint;
|
|
end;
|
|
prec=^trec;
|
|
|
|
const
|
|
s : string = 'test';
|
|
pc : pchar = @s[1];
|
|
|
|
cfg : array[1..2] of trec=(
|
|
(a:1;b:2),
|
|
(a:3;b:4)
|
|
);
|
|
pcfg : prec = @cfg[2];
|
|
|
|
l : ^longint = @cfg[1].b; { l^ should be 2 }
|
|
|
|
begin
|
|
end.
|