mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-20 07:11:43 +02:00
12 lines
125 B
ObjectPascal
12 lines
125 B
ObjectPascal
program WrongHint;
|
|
type
|
|
PRecord = ^TRecord;
|
|
TRecord = record
|
|
end;
|
|
var
|
|
x: PRecord;
|
|
begin
|
|
|
|
New(x);
|
|
Dispose(x);
|
|
end. |