paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:09:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* extended test to cover last commit

Browse Source
This commit is contained in:
florian 2021-10-20 22:33:53 +02:00
parent 7baf2461f0
commit 2ee6a81cff
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/units/system/tparam.pp
View File

@ -1,4 +1,3 @@
{ %INTERACTIVE }
program tparam;
var
@ -8,4 +7,8 @@ Begin
Begin
WriteLn(paramStr(i));
End;
for i:=-127 to -1 do
if paramStr(i)<>'' then
halt(1);
writeln('ok')
end.