From 53c7e9acb4afab79d3f962508a9edbcbebbd01d0 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 23 May 2004 16:22:03 +0000
Subject: [PATCH]   * new bug

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

diff --git a/tests/webtbf/tw3114.pp b/tests/webtbf/tw3114.pp
new file mode 100644
index 0000000000..c73c3de7de
--- /dev/null
+++ b/tests/webtbf/tw3114.pp
@@ -0,0 +1,20 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3114 }
+{ Submitted by "Maarten Bekers" on  2004-05-23 }
+{ e-mail: fpc@elexer.com }
+unit tw3114;
+
+{$mode delphi}
+
+interface
+
+function whee();
+
+implementation
+
+function whee();
+begin
+end;
+
+end.