* variant bug

tests/tbf/tb0162.pp

@@ -0,0 +1,8 @@
+{ %fail }
+
+var
+  a : word;
+begin
+  if a<>'fsfds' then;
+end.
+