[flang-commits] [flang] 8c44bef - [flang] File omp_lib.f90 is not a standard intrinsic module

[Valentin Clement via flang-commits]

Author: Valentin Clement
Date: 2022-07-01T12:05:18+02:00
New Revision: 8c44bef110339be90d25eab095c1330840422879

URL: https://github.com/llvm/llvm-project/commit/8c44bef110339be90d25eab095c1330840422879
DIFF: https://github.com/llvm/llvm-project/commit/8c44bef110339be90d25eab095c1330840422879.diff

LOG: [flang] File omp_lib.f90 is not a standard intrinsic module

This patch is part of the upstreaming effort from fir-dev branch.

Reviewed By: jeanPerier

Differential Revision: https://reviews.llvm.org/D128976

Co-authored-by: V Donaldson <vdonaldson at nvidia.com>

Added: 
    

Modified: 
    flang/lib/Lower/ConvertExpr.cpp

Removed: 
    


################################################################################
diff  --git a/flang/lib/Lower/ConvertExpr.cpp b/flang/lib/Lower/ConvertExpr.cpp
index 7f3bcc8a36ed..a9651b8fcbe0 100644
--- a/flang/lib/Lower/ConvertExpr.cpp
+++ b/flang/lib/Lower/ConvertExpr.cpp
@@ -577,7 +577,8 @@ isIntrinsicModuleProcRef(const Fortran::evaluate::ProcedureRef &procRef) {
     return false;
   const Fortran::semantics::Symbol *module =
       symbol->GetUltimate().owner().GetSymbol();
-  return module && module->attrs().test(Fortran::semantics::Attr::INTRINSIC);
+  return module && module->attrs().test(Fortran::semantics::Attr::INTRINSIC) &&
+         module->name().ToString().find("omp_lib") == std::string::npos;
 }
 
 namespace {