* halt(1) on error

git-svn-id: trunk@16402 -

tests/webtbs/tw18013.pp

@@ -5,11 +5,12 @@ var
 begin
   wa := [1..2];
   ws := [1..3];
-  if (wa <= ws) and (wa <> ws) then writeln('True') else writeln('False'); 
+  if (wa <= ws) and (wa <> ws) then writeln('True') else begin writeln('False'); halt(1) end;
   if (wa <= ws) then
-  if (wa <> ws) then writeln('True') else writeln('False'); 
-  if (wa <= ws) then writeln('True') else writeln('False'); 
-  if (wa <> ws) then writeln('True') else writeln('False'); 
+    if (wa <> ws) then writeln('True') else begin writeln('False'); halt(1); end
+  else halt(1);
+  if (wa <= ws) then writeln('True') else begin writeln('False'); halt(1); end;
+  if (wa <> ws) then writeln('True') else begin writeln('False'); halt(1); end;
 
 end.