mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 06:19:32 +02:00
13 lines
146 B
ObjectPascal
13 lines
146 B
ObjectPascal
type
|
|
psearchrec=^longint;
|
|
|
|
Var Sr : PSearchrec;
|
|
|
|
begin
|
|
Sr := New(PSearchRec);
|
|
Sr^ := 45;
|
|
if Sr^<>45 then
|
|
Halt(1);
|
|
Dispose(Sr);
|
|
end.
|