From 0620b12209cf7ccc085db0a574b571d08efc1395 Mon Sep 17 00:00:00 2001
From: Peter Steinfeld <psteinfeld@nvidia.com>
Date: Fri, 8 Oct 2021 11:26:32 -0700
Subject: [PATCH] [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
---
 flang/lib/Evaluate/fold-integer.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flang/lib/Evaluate/fold-integer.cpp b/flang/lib/Evaluate/fold-integer.cpp
index e8818082c5cf..6795f9007e0e 100644
--- a/flang/lib/Evaluate/fold-integer.cpp
+++ b/flang/lib/Evaluate/fold-integer.cpp
@@ -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") {