paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 13:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* halt(1) on error

Browse Source 
git-svn-id: trunk@16402 -
This commit is contained in:
Jonas Maebe 2010-11-22 13:36:58 +00:00
parent 44178f41b6
commit 6eecf71698
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/webtbs/tw18013.pp
View File

@ -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.