From e1205ad4e4f2a74b41558157a4cd62cc58efe145 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 3 Mar 2005 19:39:11 +0000
Subject: [PATCH]   + added

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

diff --git a/tests/webtbf/tw3740.pp b/tests/webtbf/tw3740.pp
new file mode 100644
index 0000000000..4c7bf15f99
--- /dev/null
+++ b/tests/webtbf/tw3740.pp
@@ -0,0 +1,20 @@
+{ %fail }
+
+program fjf915a;
+
+type
+  t = object
+    constructor Init (a: Boolean);
+  end;
+
+constructor t.Init (a: Boolean);
+begin
+end;
+
+var
+  p: ^t;
+
+begin
+  New (p, Init (Init (False)))  { WRONG }
+end.
+