Use GetProcessId number for UniqueSuffix if -L is used without parameter

git-svn-id: trunk@39390 -

tests/utils/dotest.pp

@@ -1613,6 +1613,8 @@ procedure getargs;
 
      'L' : begin
              UniqueSuffix:=Para;
+             if UniqueSuffix='' then
+               UniqueSuffix:=toStr(system.GetProcessID);
            end;
 
      'M' : EmulatorName:=Para;