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
-- Summary: this fortran program is too slow Product: gcc Version: 4.5.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: linuxl4 at sohu dot com GCC build triplet: x86_64-linux-gnu GCC host triplet: x86_64-linux-gnu GCC target triplet: x86_64-linux-gnu http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40766