https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100855
--- Comment #10 from Nadav Halahmi <nadavhalahmi560 at gmail dot com> ---
(In reply to Dominique d'Humieres from comment #9)
> 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.
What did you try to show here?
