paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:30:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improve test so it exits with the proper error code

Browse Source
This commit is contained in:
florian 2024-03-21 22:52:34 +01:00
parent 5bcedcfe30
commit 8aca910435
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbs/tb0712.pp
View File

@ -5,18 +5,24 @@ begin
yy:=random(0)+1980; yy:=random(0)+1980;
If (yy<1980) or (yy>2099) then If (yy<1980) or (yy>2099) then
res:=1; res:=1;
if res<>0 then
halt(res);
yy:=random(0)+2099; yy:=random(0)+2099;
If (yy<1980) or (yy>2099) then If (yy<1980) or (yy>2099) then
res:=2; res:=2;
if res<>0 then
halt(res);
yy:=random(0)+1980; yy:=random(0)+1980;
If (yy<=1979) or (yy>2099) then If (yy<=1979) or (yy>2099) then
res:=3; res:=3;
if res<>0 then
halt(res);
yy:=random(0)+2099; yy:=random(0)+2099;
If (yy<1979) or (yy>=2100) then If (yy<1979) or (yy>=2100) then
res:=4; res:=4;
if res<>0 then
halt(res); halt(res);
end. end.