tests/webtbf/tw12933.pp


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

{ %fail }

{$mode objfpc}

type
  ta = interface
  end;

  tb = interface(ta)
  end;

procedure test(var a: ta);
begin
end;

var
  b: tb;
begin
  test(b);
end.