fpcsrc/tests/webtbs/tw0801.pp


1
2
3
4
5
6
7
8
9
10
11
12

program WrongHint;
type
  PRecord = ^TRecord;
  TRecord = record
  end;
var
  x: PRecord;
begin

  New(x);
  Dispose(x);
end.