no message

tests/webtbf/tw3183.pp

@@ -0,0 +1,22 @@
+{$ifdef fpc}{$mode delphi}{$endif}
+
+type
+  IA=interface
+   function copy:String;
+  end;
+
+  IB=interface(IA)
+   function copy:integer;
+  end;
+
+  to1 = class(tinterfacedobject,ia,ib)
+    function copy:string;
+  end;
+
+function to1.copy:string;
+  begin
+  end;
+
+begin
+end.
+