From ef45f2cc05152dc782fe604cdf7af1bb5b550942 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 5 Mar 2005 20:11:15 +0000
Subject: [PATCH]   + added

---
 tests/webtbs/tw3694.pp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tests/webtbs/tw3694.pp

diff --git a/tests/webtbs/tw3694.pp b/tests/webtbs/tw3694.pp
new file mode 100644
index 0000000000..d1e359e10f
--- /dev/null
+++ b/tests/webtbs/tw3694.pp
@@ -0,0 +1,12 @@
+program bug1;
+
+function f : tobject;
+begin
+  f := tobject.create;
+end;
+
+var
+  s : single;
+begin
+  s := single(f);
+end.