fpc/tests/webtbs/tw28801.pp
2015-11-03 18:10:08 +00:00

28 lines
275 B
ObjectPascal

program project1;
{$mode delphi}
type
TTest = class
public
destructor Destroy; override;
class destructor Destroy;
end;
{ TTest }
class destructor TTest.Destroy;
begin
exitcode:=0;
end;
destructor TTest.Destroy;
begin
end;
begin
halt(1);
end.