fpc/tests/webtbs/tbug801.pp
2000-01-21 11:53:20 +00:00

12 lines
125 B
ObjectPascal

program WrongHint;
type
PRecord = ^TRecord;
TRecord = record
end;
var
x: PRecord;
begin
New(x);
Dispose(x);
end.