fpcsrc/tests/webtbf/tw6420.pp


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

{ %fail }

{$mode delphi}

type
  IA = interface
    procedure B(out c: Integer);
  end;

  TA = class(TInterfacedObject, IA)
    procedure B(var c: Integer);
  end;

procedure TA.B(var c: Integer);
begin
end;


begin
end.