mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:47:58 +02:00
14 lines
296 B
ObjectPascal
14 lines
296 B
ObjectPascal
program test;
|
|
|
|
type pRecord = ^aRecord;
|
|
aRecord = record
|
|
next : pRecord;
|
|
a, b, c : integer;
|
|
end;
|
|
|
|
const rec1 : aRecord = (next : nil; a : 10; b : 20; c : 30);
|
|
rec2 : aRecord = (next : @rec1; a : 20; b : 30; c : 40);
|
|
|
|
begin
|
|
end.
|