[Bug fortran/22518] ICE in gfc_conv_function_call for elemental character functions

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From tkoenig at gcc dot gnu dot org  2005-07-19 07:57 -------
No elemental function call necessary, it seems. (The *
is probably invalid for this).

Here is another case which exhibits the same behavior:

$ cat clen.f90
program main
  implicit none
  character(len=2) :: a
  a = 'xy'
  print *,fun(a)
contains
  function fun(arg)
    character(len=*) :: arg
    character(len=len(arg)) :: fun
    fun = 'xx'
  end function fun
end program main
$ gfortran clen.f90
clen.f90: In function 'MAIN__':
clen.f90:5: internal compiler error: in gfc_conv_function_call, at 
fortran/trans-expr.c:1106
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
$ gfortran -v
Using built-in specs.
Target: ia64-unknown-linux-gnu
Configured with: ../gcc-4.1-20050716/configure --prefix=/home/zfkts --enable-
languages=c,f95
Thread model: posix
gcc version 4.1.0 20050716 (experimental)

We don't handle the specification expression in this case
(sym->ts.cl->length->expr_type is EXPR_FUNCTION).

-- 


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