Test program by James Van Buskirk, from c.l.f:

$ cat > size.f90
program sum_f95
   implicit none
   integer i, j
   integer, parameter :: n = 152
   integer, parameter :: iv1 = size([([('',i=1,j**3)],j=1,n)])

   write(*,*) n, iv1
end program sum_f95
$ time gfortran size.f90 

real    4m30.253s
user    4m21.508s
sys     0m0.092s

Timing profile:

Execution times (seconds)
 parser                : 262.05 (100%) usr   0.00 ( 0%) sys 262.05 (100%) wall 
   116 kB (51%) ggc
 final                 :   0.00 ( 0%) usr   0.01 (100%) sys   0.01 ( 0%) wall  
    0 kB ( 0%) ggc
 TOTAL                 : 262.05             0.01           262.07              
 227 kB


-- 
           Summary: time compiling complicated size initialization
                    expression
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: compile-time-hog
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tkoenig at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34554

Reply via email to