fixed implicit none

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);
     }
 

sapfor/experts/Sapfor_2017/_src/Utils/version.h

@@ -1,3 +1,3 @@
 #pragma once
 
-#define VERSION_SPF "2358"
+#define VERSION_SPF "2359"