[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,
+             common::Intent::InOut},
+            {"operation", SameType, Rank::reduceOperation},
----------------
klausler wrote:

`SameType` is not correct.  `operation` is a function.

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