* extended test to cover last commit

tests/test/units/system/tparam.pp

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