[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:

If an assumed rank dummy argument were acceptable here, the standard would explicit say so.

See constraint C840 in subclause 8.5.8.7 in F'2023.

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