*** empty log message ***

tests/tbs/tbs0046.pp

@@ -25,19 +25,27 @@ begin
 set1:=set1+set2;
 writeln('set 1 = [1,50,55,220]');
 i:=50;
-if i in set1 then writeln(i,' is in set1');
+if i in set1 then
+  writeln(i,' is in set1');
 i:=220;
-if i in set1 then writeln(i,' is in set1');
+if i in set1 then
+  writeln(i,' is in set1');
 i:=$100+220;
-if i in set1 then writeln(i,' is in set1');
+if i in set1 then
+  writeln(i,' is in set1');
 i:=-35;
-if i in set1 then writeln(i,' is in set1');
+if i in set1 then
+  writeln(i,' is in set1');
 b.i:=50;
 i:=$100+220;
-if i in [50,220] then writeln(i,' is in [50,220]');
-if Bi in [50,220] then writeln(b.i,' is in [50,220]');
+if i in [50,220] then
+  writeln(i,' is in [50,220]');
+if Bi in [50,220] then
+  writeln(b.i,' is in [50,220]');
 b.i:=220;
-if bi in [50,220] then writeln(b.i,' is in [50,220]');
+if bi in [50,220] then
+  writeln(b.i,' is in [50,220]');
 B.i:=-36;
-if bi in [50,220] then writeln(B.i,' is in [50,220]');
+if bi in [50,220] then
+  writeln(B.i,' is in [50,220]');
 end.

tests/tbs/tbs0294.pp

@@ -13,7 +13,9 @@ var t : longint;
 
 begin
   t:=2;
-  { here you get garbage value with BP ! }
-  Writeln('test(t=2) = ',test(t));
-  Writeln('t after test = ',t);
+  if (test(t)<>1) or (t<>2) then
+    begin
+       writeln('Error');
+       halt(1);
+    end;
 end.