Remove constant optimisation.

Author: TIFitis

flang/lib/Optimizer/Builder/IntrinsicCall.cpp

@@ -1280,14 +1280,6 @@ mlir::Value genComplexPow(fir::FirOpBuilder &builder, mlir::Location loc,
                           const MathOperation &mathOp,
                           mlir::FunctionType mathLibFuncType,
                           llvm::ArrayRef<mlir::Value> args) {
-  if (auto expInt = fir::getIntIfConstant(args[1]))
-    if (*expInt >= 2 && *expInt <= 8) {
-      mlir::Value result = args[0];
-      for (int i = 1; i < *expInt; ++i)
-        result = builder.create<mlir::complex::MulOp>(loc, result, args[0]);
-      return builder.createConvert(loc, mathLibFuncType.getResult(0), result);
-    }
-
   bool canUseApprox = mlir::arith::bitEnumContainsAny(
       builder.getFastMathFlags(), mlir::arith::FastMathFlags::afn);
   bool isAMDGPU = fir::getTargetTriple(builder.getModule()).isAMDGCN();

flang/test/Lower/amdgcn-complex.f90

@@ -18,19 +18,10 @@ subroutine cexpf_test(a, b)
    b = exp(a)
 end subroutine
 
-! CHECK-LABEL: func @_QPpow_test1(
-! CHECK: complex.mul
-! CHECK-NOT: complex.pow
-! CHECK-NOT: fir.call @_FortranAcpowi
-subroutine pow_test1(a, b)
-   complex :: a, b
-   a = b**2
-end subroutine pow_test1
-
-! CHECK-LABEL: func @_QPpow_test2(
+! CHECK-LABEL: func @_QPpow_test(
 ! CHECK: complex.pow
 ! CHECK-NOT: fir.call @_FortranAcpowi
-subroutine pow_test2(a, b, c)
+subroutine pow_test(a, b, c)
    complex :: a, b, c
    a = b**c
-end subroutine pow_test2
+end subroutine pow_test

flang/test/Lower/power-operator.f90

@@ -142,12 +142,3 @@ subroutine pow_c8_c8(x, y, z)
   ! FAST: complex.pow %{{.*}}, %{{.*}} : complex<f64>
   ! PRECISE: call @cpow
 end subroutine
-
-! CHECK-LABEL: pow_const
-subroutine pow_const(a, b)
-  complex :: a, b
-  ! CHECK-NOT: complex.pow
-  ! CHECK-NOT: @_FortranAcpowi
-  ! CHECK-COUNT-3: complex.mul
-  a = b**4
-end subroutine