mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 19:48:08 +02:00
29 lines
294 B
ObjectPascal
29 lines
294 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0679;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TA = class
|
|
public
|
|
class destructor Destroy;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
class destructor TA.Destroy;
|
|
begin
|
|
end;
|
|
|
|
destructor TA.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
var
|
|
A: TA;
|
|
begin
|
|
A := TA.Create;
|
|
A.Free;
|
|
end.
|