From f36ac3adbd88dc9fda2c0bb6475fe3a00f677545 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 5 Jul 2018 11:11:15 +0000
Subject: [PATCH]  Use GetProcessId number for UniqueSuffix if -L is used
 without parameter

git-svn-id: trunk@39390 -
---
 tests/utils/dotest.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/utils/dotest.pp b/tests/utils/dotest.pp
index 8cc55c0b10..6f49bdf73f 100644
--- a/tests/utils/dotest.pp
+++ b/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;