[Bug fortran/51966] [4.6/4.7 Regression] ICE in gfc_conv_array_constructor_expr

[burnus at gcc dot gnu.org]

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

--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-01-24 
09:26:56 UTC ---
Reduced test case, which also illustrates another ICE:


module EcoSystem_ml
  implicit none

  type, public:: Deriv
    character(len=10) :: name
  end type

  character(len=8), public, dimension(1), parameter :: &
       DEF_ECOSYSTEMS = (/ "Grid    " /)

  type(Deriv), save :: DepEcoSystem != Deriv(DEF_ECOSYSTEMS(1))
                                    ! ^^^^ ICE in gfc_conv_string_init
contains
  subroutine Init_EcoSystems()
    DepEcoSystem = Deriv(DEF_ECOSYSTEMS(1))
                 ! ^^^ ICE in gfc_conv_array_constructor_expr
  end subroutine Init_EcoSystems
end module EcoSystem_ml