------- Comment #2 from burnus at gcc dot gnu dot org 2006-11-10 00:14 ------- Slightly more reduced test case:
subroutine zsk_driver_cgnr (opt, sol) implicit none interface subroutine opt() end subroutine opt end interface complex :: sol(:) sol(1) = cmplx(0.0,1.0)*aimag(sol(1)) end subroutine zsk_driver_cgnr or subroutine zsk_driver_cgnr (opt) implicit none interface subroutine opt() end subroutine opt end interface complex,allocatable :: sol(:) allocate(sol(5)) sol(1) = cmplx(0.0,1.0)*aimag(sol(1)) end subroutine zsk_driver_cgnr -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29791