+ added

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.