This code: module z character(8), parameter :: a(1:3)=(/'nint() ', 'log10() ', 'sqrt() '/) integer, parameter :: b(1:3) = index(a, '(') end module z
causes troutmask:sgk[415] gfc4x -o z z.f90 z.f90:0: internal compiler error: in gfc_conv_array_initializer, at fortran/trans-array.c:3470 -- Summary: INDEX in an array initialization causes ICE Product: gcc Version: 4.2.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: kargl at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29507