tests/webtbf/tw9306c.pp


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

{ %fail }

type
  tobj = object
    function f: integer; virtual;
  end;

  tobj2 = object(tobj)
    function f: string; virtual;
  end;

  function tobj.f: integer;
    begin
    end;

  function tobj2.f:string;
    begin
    end;

begin
end.