*** empty log message ***

tests/tbs/tb0401.pp

@@ -0,0 +1,8 @@
+{ %version=1.1 }
+var
+   b : boolean;
+   c : char;
+
+begin
+   c:=char(b<>b);
+end.