https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100855
Dominique d'Humieres <dominiq at lps dot ens.fr> changed: What |Removed |Added ---------------------------------------------------------------------------- Resolution|--- |INVALID Status|WAITING |RESOLVED --- Comment #9 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- I don't know if the test is coming from a real world problem. The modified test program power implicit none real :: sum, sum1, n, q integer :: i, j integer :: limit real :: start, finish sum = 0d0 sum1 = 0d0 limit = 10000 n = 2.0 q = 0.5 call CPU_TIME(start) do i=1, limit n = n*q sum1 = sum1 + (i ** (0.05 + n)) end do do i=1, limit sum = sum + (i ** 0.05) end do sum = sum1 + (limit-1)*sum call CPU_TIME(finish) print *, sum, n, sum1 print '("Time = ",f6.3," seconds.")',finish-start end program power yields 150945680. 0.00000000 15095.7852 Time = 0.000 seconds.