*** empty log message ***

tests/tbs/tb0401.pp

@@ -1,8 +1,21 @@
 { %version=1.1 }
 var
-   b : boolean;
+   b1,b2 : boolean;
    c : char;
 
 begin
-   c:=char(b<>b);
+   b1:=false;
+   b2:=true;
+   c:=char(b1 and b2);
+   if c<>#0 then
+     halt(1);
+   c:=char(b1 or b2);
+   if c<>#1 then
+     halt(1);
+   c:=char(b1);
+   if c<>#0 then
+     halt(1);
+   c:=char(b2);
+   if c<>#1 then
+     halt(1);
 end.