mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
15 lines
207 B
ObjectPascal
15 lines
207 B
ObjectPascal
TYPE Rec = RECORD
|
|
x:WORD;
|
|
y:WORD;
|
|
END;
|
|
|
|
VAR s:WORD;
|
|
r:Rec;
|
|
|
|
CONST p1:POINTER = @s; { Works fine }
|
|
p2:POINTER = @R.x; { illegal expression }
|
|
|
|
BEGIN
|
|
END.
|
|
|