------- 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

Reply via email to