[flang-commits] [flang] [flang] Define CO_REDUCE intrinsic procedure (PR #125115)

[Peter Klausler via flang-commits]

================
@@ -1450,6 +1450,17 @@ static const IntrinsicInterface intrinsicSubroutine[]{
             {"errmsg", DefaultChar, Rank::scalar, Optionality::optional,
                 common::Intent::InOut}},
         {}, Rank::elemental, IntrinsicClass::collectiveSubroutine},
+    {"co_reduce",
+        {{"a", AnyData, Rank::anyOrAssumedRank, Optionality::required,
----------------
klausler wrote:

why do you accept an assumed rank dummy argument?

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