fpcsrc/tests/tbs/tb0481.pp


1
2
3
4
5
6
7
8
9

type
  trec = record
    data : longint;
  end;
  prec = ^trec;

begin
  writeln(longint(@prec(0)^.data));
end.