[flang] Fix capitalization of "ishft"

We weren't recognizing the ISHFT intrinsic because the code had
incorrectly capitalized it.

Differential Revision: https://reviews.llvm.org/D111449
This commit is contained in:
Peter Steinfeld 2021-10-08 11:26:32 -07:00
parent 8fe3d9df0e
commit 0620b12209

View File

@ -615,7 +615,7 @@ Expr<Type<TypeCategory::Integer, KIND>> FoldIntrinsicFunction(
// Second argument can be of any kind. However, it must be smaller or
// equal than BIT_SIZE. It can be converted to Int4 to simplify.
auto fptr{&Scalar<T>::ISHFT};
if (name == "ISHFT") { // done in fptr definition
if (name == "ishft") { // done in fptr definition
} else if (name == "shifta") {
fptr = &Scalar<T>::SHIFTA;
} else if (name == "shiftr") {