* variant problem where a normal operation is handled as variants

tests/tbf/tb0142.pp

@@ -0,0 +1,10 @@
+{ %fail }
+
+function f(b:byte):byte;
+begin
+  f:=chr(b)-chr(24);
+end;
+
+begin
+end.
+