------- Comment #16 from jvdelisle at gcc dot gnu dot org 2009-11-28 15:16 ------- With this simply modified case:
program sel
implicit none
integer,parameter :: n=10
integer :: i,j,k,l
real,dimension(n*n*n*n) :: vect
vect(:) = (/ ((((( (i+j+k+l+3)),i=1,n),j=1,n),k=1,n),l=1,n) /)
print *, vect
end
Compilation time is reduced by 1/2 with the patch. Other more complex examples
need to be tested of course.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20923
