[flang] Accept INDEX(..., BACK=array)
authorPeter Klausler <pklausler@nvidia.com>
Tue, 11 Jan 2022 19:24:55 +0000 (11:24 -0800)
committerPeter Klausler <pklausler@nvidia.com>
Thu, 20 Jan 2022 01:37:24 +0000 (17:37 -0800)
commit78649a8499a0177cced99dcd61afcb48809e9109
tree12c3b052d424254de87465f3d1c7a7b2a4bb398e
parentbddfb81a312e68053fce5d11274e7764f9363e79
[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
flang/lib/Evaluate/intrinsics.cpp
flang/test/Evaluate/folding05.f90