Fix timer name for main program internal procedures

ParaToolsInc · Feb 1, 2025 · e6b4d39 · e6b4d39
1 parent f444692
commit e6b4d39
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/flang_salt_instrument_plugin.cpp b/src/flang_salt_instrument_plugin.cpp
@@ -211,6 +211,7 @@ namespace salt::fortran {
             }
 
             bool Pre(const Fortran::parser::SubroutineStmt &subroutineStmt) {
+                isInMainProgram_ = false;
                 const auto &name = std::get<Fortran::parser::Name>(subroutineStmt.t);
                 subprogramName_ = name.ToString();
                 subProgramLine_ = parsing->allCooked().GetSourcePositionRange(name.source)->first.line;
@@ -230,6 +231,7 @@ namespace salt::fortran {
             }
 
             bool Pre(const Fortran::parser::FunctionStmt &functionStmt) {
+                isInMainProgram_ = false;
                 const auto &name = std::get<Fortran::parser::Name>(functionStmt.t);
                 subprogramName_ = name.ToString();
                 subProgramLine_ = parsing->allCooked().GetSourcePositionRange(name.source)->first.line;