The following triggers an ICE with ifort 12:
[fortran]subroutine test1
character(len=:), allocatable :: string
character(len=20) :: word
!
word = 'hello'
allocate(character(len=len_trim(word)) :: string)
print *, 'allocated string with length ', len(string)
end subroutine test1[/fortran]
But the following compiles just fine:
[fortran]subroutine test2
character(len=:), allocatable :: string
character(len=20) :: word
integer :: ilen
!
word = 'hello'
ilen = len_trim(word)
allocate(character(len=ilen) :: string)
print *, 'allocated string with length ', len(string)
end subroutine test2[/fortran]
