From 164acd59d20b162e83f2cb09b9a8efb1ad2431f1 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 5 Dec 2004 22:28:59 +0000
Subject: [PATCH] no message

---
 tests/webtbf/tw3183.pp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 tests/webtbf/tw3183.pp

diff --git a/tests/webtbf/tw3183.pp b/tests/webtbf/tw3183.pp
new file mode 100644
index 0000000000..2a5f83ea66
--- /dev/null
+++ 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.
+