[flang] Fix F18 scalar integer power algorithm
Original-commit: flang-compiler/f18@f0609e7ace60d6272285eda9d57e4052632b0e3c
diff --git a/flang/test/evaluate/folding01.f90 b/flang/test/evaluate/folding01.f90
index 2c32be6..0b989e0 100644
--- a/flang/test/evaluate/folding01.f90
+++ b/flang/test/evaluate/folding01.f90
@@ -95,5 +95,9 @@
logical, parameter :: test_divide_i3 = ((-7)/2).EQ.(-3)
logical, parameter :: test_divide_i4 = (0/127).EQ.(0)
+ logical, parameter :: test_pow1 = (2**0).EQ.(1)
+ logical, parameter :: test_pow2 = (1**100).EQ.(1)
+ logical, parameter :: test_pow3 = (2**4).EQ.(16)
+ logical, parameter :: test_pow4 = (7**5).EQ.(16807)
end module
