From 861ce8262e0a916b8044da0cc14c280c823cddd1 Mon Sep 17 00:00:00 2001
From: ALEXks <alexks179@gmail.com>
Date: Wed, 31 Jul 2024 17:01:21 +0300
Subject: [PATCH] fixed implicit none

---
 .../Sapfor_2017/_src/Transformations/set_implicit_none.cpp     | 3 +++
 sapfor/experts/Sapfor_2017/_src/Utils/version.h                | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/sapfor/experts/Sapfor_2017/_src/Transformations/set_implicit_none.cpp b/sapfor/experts/Sapfor_2017/_src/Transformations/set_implicit_none.cpp
index d08495b..32d1c19 100644
--- a/sapfor/experts/Sapfor_2017/_src/Transformations/set_implicit_none.cpp
+++ b/sapfor/experts/Sapfor_2017/_src/Transformations/set_implicit_none.cpp
@@ -365,10 +365,13 @@ void implicitCheck(SgFile* file, vector<int>& dvmDirErrorsLines)
 
     vector<SgStatement*> modulesAndFunctions;
     getModulesAndFunctions(file, modulesAndFunctions);
+    const string currFile = file->filename();
 
     for (int func = 0; func < modulesAndFunctions.size(); ++func)
     {
         SgStatement* function = modulesAndFunctions[func];
+        if (function->fileName() != currFile)
+            continue;
         typesByFunctions[function] = FunctionImplicitCheck(function, typesByFunctions, dvmDirErrorsLines);
     }
 
diff --git a/sapfor/experts/Sapfor_2017/_src/Utils/version.h b/sapfor/experts/Sapfor_2017/_src/Utils/version.h
index 64e93eb..0c1ec5a 100644
--- a/sapfor/experts/Sapfor_2017/_src/Utils/version.h
+++ b/sapfor/experts/Sapfor_2017/_src/Utils/version.h
@@ -1,3 +1,3 @@
 #pragma once
 
-#define VERSION_SPF "2358"
+#define VERSION_SPF "2359"