tests/webtbf/tw36652.pp


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

{ %FAIL }
{ %RECOMPILE }

{$mode objfpc}
{$interfaces corba}

program tw36652;
uses
  uw36652;

type
  TClassB = class
    procedure DoThis;
  end;

// 2014010312
procedure TClassA.DoThis;
begin
end;

begin
end.