+ added

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.
+