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.
