paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 14:58:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made exit codes unique

Browse Source 
git-svn-id: trunk@47860 -
This commit is contained in:
Jonas Maebe 2020-12-27 13:19:05 +00:00
parent b359080f42
commit 6d03f2807a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/tprec8.pp
View File

@ -40,19 +40,19 @@ begin
halt(1);
r.g := 5;
if (r.g <> 5) then
halt(1);
halt(2);
r.h := 65535;
if (r.h <> 65535) then
halt(1);
halt(3);
r.k := true;
if not (r.k) then
halt(1);
halt(4);
r.j := false;
if r.j then
halt(1);
halt(5);
if b <> 0 then
halt(1);
halt(6);
if sizeof(tr) <> 13 then
halt(2);
halt(7);
end.