fpcsrc/tests/webtbs/tw10790.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

{ %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.