tests/webtbs/tw28632.pp


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

{ %opt=-gh }

{$mode objfpc}{$H+}

procedure clear(out x);
begin
  pointer(x):=nil;
end;

procedure test;
var
  ii1: iunknown;
begin
  ii1:=tinterfacedobject.create;
  clear(ii1);
end;

begin
  HaltOnNotReleased:=true;
  test;
end.