Revert "[flang] Lower EOSHIFT into hlfir.eoshift." (#153907)

Reverts #153106

Buildbots failing:
* https://lab.llvm.org/buildbot/#/builders/199/builds/5188
* https://lab.llvm.org/buildbot/#/builders/41/builds/8329

Author: vzakhari

flang/lib/Lower/HlfirIntrinsics.cpp

@@ -170,17 +170,6 @@ class HlfirCShiftLowering : public HlfirTransformationalIntrinsic {
             mlir::Type stmtResultType) override;
 };
 
-class HlfirEOShiftLowering : public HlfirTransformationalIntrinsic {
-public:
-  using HlfirTransformationalIntrinsic::HlfirTransformationalIntrinsic;
-
-protected:
-  mlir::Value
-  lowerImpl(const Fortran::lower::PreparedActualArguments &loweredActuals,
-            const fir::IntrinsicArgumentLoweringRules *argLowering,
-            mlir::Type stmtResultType) override;
-};
-
 class HlfirReshapeLowering : public HlfirTransformationalIntrinsic {
 public:
   using HlfirTransformationalIntrinsic::HlfirTransformationalIntrinsic;
@@ -441,33 +430,6 @@ mlir::Value HlfirCShiftLowering::lowerImpl(
   return createOp<hlfir::CShiftOp>(resultType, operands);
 }
 
-mlir::Value HlfirEOShiftLowering::lowerImpl(
-    const Fortran::lower::PreparedActualArguments &loweredActuals,
-    const fir::IntrinsicArgumentLoweringRules *argLowering,
-    mlir::Type stmtResultType) {
-  auto operands = getOperandVector(loweredActuals, argLowering);
-  assert(operands.size() == 4);
-  mlir::Value array = operands[0];
-  mlir::Value shift = operands[1];
-  mlir::Value boundary = operands[2];
-  mlir::Value dim = operands[3];
-  // If DIM is present, then dereference it if it is a ref.
-  if (dim)
-    dim = hlfir::loadTrivialScalar(loc, builder, hlfir::Entity{dim});
-
-  mlir::Type resultType = computeResultType(array, stmtResultType);
-
-  // Scalar logical constant boundary might be represented using i1, i2, ...
-  // type. We need to cast it to fir.logical type of the ARRAY/result.
-  if (auto logicalTy = mlir::dyn_cast<fir::LogicalType>(
-          hlfir::getFortranElementType(resultType)))
-    if (boundary && fir::isa_trivial(boundary.getType()) &&
-        boundary.getType() != logicalTy)
-      boundary = builder.createConvert(loc, logicalTy, boundary);
-
-  return createOp<hlfir::EOShiftOp>(resultType, array, shift, boundary, dim);
-}
-
 mlir::Value HlfirReshapeLowering::lowerImpl(
     const Fortran::lower::PreparedActualArguments &loweredActuals,
     const fir::IntrinsicArgumentLoweringRules *argLowering,
@@ -527,9 +489,6 @@ std::optional<hlfir::EntityWithAttributes> Fortran::lower::lowerHlfirIntrinsic(
   if (name == "cshift")
     return HlfirCShiftLowering{builder, loc}.lower(loweredActuals, argLowering,
                                                    stmtResultType);
-  if (name == "eoshift")
-    return HlfirEOShiftLowering{builder, loc}.lower(loweredActuals, argLowering,
-                                                    stmtResultType);
   if (name == "reshape")
     return HlfirReshapeLowering{builder, loc}.lower(loweredActuals, argLowering,
                                                     stmtResultType);