[Bug fortran/17123] New: Assertion fail in trans-const.c

["refson dot temp at ntlworld dot com" <gcc-bugzilla at gcc dot gnu dot org>]

This small fortran program gives an assertion fail in the compiler.

$ gfc g95bug.f90
f951: ../../gcc/gcc/fortran/trans-const.c:357: gfc_conv_constant: Assertion
`se->ss->type == GFC_SS_SCALAR' failed.
g95bug.f90: In function `g95sum':
g95bug.f90:12: internal compiler error: Aborted

$ gfc --version
GNU Fortran 95 (GCC 3.5.0 20040820 (experimental))
Copyright (C) 2003 Free Software Foundation, Inc.

$ cat g95bug.f90
module g95test
  type, public :: keyword
     character(len=3)            :: typ
  end type keyword

  type(keyword), dimension(:), allocatable :: key_temp

contains
  subroutine g95sum

    character(len=1) :: tp
    tp = achar(sum(ichar(key_temp%typ(1:1))))
  end subroutine g95sum

end module g95test

-- 
           Summary: Assertion fail in trans-const.c
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: refson dot temp at ntlworld dot com
                CC: gcc-bugs at gcc dot gnu dot org


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