------- Comment #14 from eres at il dot ibm dot com 2009-07-22 11:15 ------- (In reply to comment #0) > program main > implicit none > integer :: i,j > integer,parameter :: N=50000000 > real :: x(N)=0.0 > do j=1,20 > do i=1,N > x(i)=x(i)+sin(real(i))+cos(real(i))-tan(real(i)) > enddo > enddo > print *, sum(x) > end program main
Is this exmaple taken from a specific benchmark? -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40766
