no message

tests/tbf/tb0169.pp

@@ -0,0 +1,18 @@
+{ %fail }
+
+{$mode objfpc}
+
+type
+  ttype=object
+    l1,l2 : pointer;
+  end;
+
+  tcl=class
+  end;
+
+var
+  tt : ttype;
+  c  : tcl;
+begin
+  c:=tcl(tt);
+end.