[flang-commits] [flang] [flang][OpenMP] Identify affected loops, provide reason (PR #185299)

[Krzysztof Parzyszek via flang-commits]

================
@@ -528,6 +528,42 @@ MaybeExpr MakeEvaluateExpr(const parser::OmpStylizedInstance &inp) {
       instance.u);
 }
 
+std::pair<std::optional<int64_t>, Reason> GetArgumentValueWithReason(
+    const parser::OmpDirectiveSpecification &spec, llvm::omp::Clause clauseId,
+    unsigned version) {
+  if (auto *clause{parser::omp::FindClause(spec, clauseId)}) {
+    if (auto *expr{parser::Unwrap<parser::Expr>(clause->u)}) {
+      if (auto value{GetIntValue(*expr)}) {
+        llvm::StringRef name{llvm::omp::getOpenMPClauseName(clauseId, version)};
+        Reason reason( //
----------------
kparzysz wrote:

Yes

https://github.com/llvm/llvm-project/pull/185299