+ added (fixed in r5682)

git-svn-id: trunk@5722 -

.gitattributes

@@ -6984,6 +6984,7 @@ tests/webtbf/tw4893d.pp svneol=native#text/plain
 tests/webtbf/tw4893e.pp svneol=native#text/plain
 tests/webtbf/tw4911.pp svneol=native#text/plain
 tests/webtbf/tw4913.pp -text
+tests/webtbf/tw6420.pp svneol=native#text/plain
 tests/webtbf/tw6631.pp svneol=native#text/plain
 tests/webtbf/tw6686.pp svneol=native#text/plain
 tests/webtbf/tw6796.pp svneol=native#text/plain

tests/webtbf/tw6420.pp

@@ -0,0 +1,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.