From c3ba885dd70b4371acd11ec5ddb0f1fcf25bd1d1 Mon Sep 17 00:00:00 2001
From: Valentin Clement <clementval@gmail.com>
Date: Tue, 15 Mar 2022 22:40:11 +0100
Subject: [PATCH] [flang] Fix intrinsic entry

---
 flang/lib/Lower/IntrinsicCall.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/flang/lib/Lower/IntrinsicCall.cpp b/flang/lib/Lower/IntrinsicCall.cpp
index 929d280..efdfe95 100644
--- a/flang/lib/Lower/IntrinsicCall.cpp
+++ b/flang/lib/Lower/IntrinsicCall.cpp
@@ -621,6 +621,7 @@ static constexpr IntrinsicHandler handlers[]{
      {{{"array", asBox},
        {"dim", asValue},
        {"mask", asBox, handleDynamicOptional}}},
+     /*isElemental=*/false},
     {"random_init",
      &I::genRandomInit,
      {{{"repeatable", asValue}, {"image_distinct", asValue}}},
-- 
2.7.4