[Bug fortran/19017] ICE in gfc_trans_scalar_assign

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-01-17 
16:04 -------
Shorter reduced testcase (from PR 19482):
SUBROUTINE ALLOCATE_STORAGE
  IMPLICIT REAL (A-H,O-Z)
  INTEGER, PARAMETER :: NPNMP = 22
  TYPE :: MATERIAL_TYPE
     CHARACTER(12) PRNAME(NPNMP)
  END TYPE MATERIAL_TYPE
  TYPE (MATERIAL_TYPE) :: MATERIAL
  MATERIAL =  MATERIAL_TYPE( (/ (' ',J=1,NPNMP) /) )
END SUBROUTINE ALLOCATE_STORAGE

-- 


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