new bug

tests/webtbf/tw3680.pp

@@ -0,0 +1,10 @@
+{ %fail }
+
+function c(x:char):char;
+begin
+c:=(char(succ(ord(x))));
+end;
+
+begin
+if not c('y') in ['a','b'] then writeln(99);
+end.