paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ missing halt instructions

Browse Source
This commit is contained in:
florian 2022-11-23 19:01:32 +01:00
parent 68b092a466
commit e7fda48327
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw39615a.pp
View File

@ -26,5 +26,8 @@ begin
ok := false;
end;
end;
if ok then writeln('ok');
if ok then
writeln('ok')
else
halt(1);
end.

5
tests/webtbs/tw39615b.pp
View File

@ -26,5 +26,8 @@ begin
ok := false;
end;
end;
if ok then writeln('ok');
if ok then
writeln('ok')
else
halt(1);
end.