fpc/tests/webtbf/tw6420.pp
Jonas Maebe b2da1c43e7 + added (fixed in r5682)
git-svn-id: trunk@5722 -
2006-12-26 18:25:04 +00:00

21 lines
223 B
ObjectPascal

{ %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.