fpc/tests/webtbs/tw10790.pp
2008-02-08 15:04:58 +00:00

26 lines
285 B
ObjectPascal

{ %OPT=-gh }
{$ifdef fpc}
{$mode delphi}
{$endif}
program failtest;
type
TMyClass = class
constructor Create;
end;
constructor TMyClass.Create;
begin
Fail;
end;
var
MyClass : TMyClass;
begin
HaltOnNotReleased := true;
MyClass := TMyClass.Create;
end.