mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 17:59:25 +02:00
22 lines
275 B
ObjectPascal
22 lines
275 B
ObjectPascal
program done_bug;
|
|
|
|
type
|
|
TObject = object
|
|
Constructor Init;
|
|
Destructor Done;
|
|
end;
|
|
PObject = ^TObject;
|
|
|
|
Constructor TObject.Init;
|
|
begin end;
|
|
Destructor TObject.Done;
|
|
begin end;
|
|
|
|
var P:PObject;
|
|
|
|
begin
|
|
New(P,Init);
|
|
with P^ do Done; { Compiler PANIC here ! }
|
|
Dispose(P);
|
|
end.
|