*** empty log message ***

tests/test/testitf4.pp

@@ -0,0 +1,47 @@
+{ $version >= 1.1}
+{$mode objfpc}
+type
+  ITest = interface(IUnknown)
+    procedure DoSomething;
+  end;
+
+
+  TMyClass = class(TInterfacedObject, ITest)
+    procedure DoSomething;
+  end;
+
+var
+   i : longint;
+
+procedure TMyClass.DoSomething;
+begin
+  inc(i);
+end;
+
+
+procedure DoTest(const ATest: ITest);
+begin
+  ATest.DoSomething;
+end;
+
+
+procedure DoTest2(ATest: ITest);
+begin
+  ATest.DoSomething;
+end;
+
+
+var
+  c: TMyClass;
+begin
+  i:=0;
+  c := TMyClass.Create;
+  DoTest(c);
+  DoTest2(c);
+  c.Free;
+  if i<>2 then
+    begin
+       writeln('Problem with passing interfaces as parameters');
+       halt(1);
+    end;
+end.