From 9b25c9bda6f26dcf30f902cbe46258dfe5bc8dcc Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 18 May 2020 19:06:19 +0000
Subject: [PATCH] # revisions: 45424

git-svn-id: branches/fixes_3_2@45428 -
---
 compiler/scandir.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 8728ac4f10..811e8edd74 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -1495,7 +1495,8 @@ unit scandir;
           begin
             current_scanner.skipspace;
             unitpath:=current_scanner.readcomment;
-            if current_module.path<>'' then
+            if (current_module.path<>'') and
+               not path_absolute(unitpath) then
              unitpath:=current_module.path+source_info.DirSep+unitpath;
             current_module.localunitsearchpath.AddPath(unitpath,false);
           end;