no message

2025-09-02 00:10:31 +02:00 · 2004-12-05 22:28:59 +00:00 · 2004-12-05 22:28:59 +00:00 · 164acd59d2
commit 164acd59d2
parent 02979451d1
1 changed files with 22 additions and 0 deletions
--- a/tests/webtbf/tw3183.pp
+++ b/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.
+