[flang] Accept INDEX(..., BACK=array)

The intrinsic table entry for INDEX mistakenly required the optional BACK= argument to be scalar, but it's an elemental intrinsic that can accept a conforming array. Differential Revision: https://reviews.llvm.org/D117700
llvm · Jan 20, 2022 · 78649a8 · 78649a8
1 parent bddfb81
commit 78649a8
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/flang/lib/Evaluate/intrinsics.cpp b/flang/lib/Evaluate/intrinsics.cpp
@@ -486,7 +486,7 @@ static const IntrinsicInterface genericIntrinsicFunction[]{
     {"image_status", {{"image", SameInt}, OptionalTEAM}, DefaultInt},
     {"index",
         {{"string", SameChar}, {"substring", SameChar},
-            {"back", AnyLogical, Rank::scalar, Optionality::optional},
+            {"back", AnyLogical, Rank::elemental, Optionality::optional},
             DefaultingKIND},
         KINDInt},
     {"int", {{"a", AnyNumeric, Rank::elementalOrBOZ}, DefaultingKIND}, KINDInt},

diff --git a/flang/test/Evaluate/folding05.f90 b/flang/test/Evaluate/folding05.f90