------- Comment #1 from fxcoudert at gcc dot gnu dot org 2007-03-16 15:23 ------- Reduced testcase:
$ cat a.f90 call gee( [f(1)] ) contains function f(k) result(i) integer :: k character(len=k) :: i end function end $ ./bin/gfortran a.f90 a.f90:1: internal compiler error: Segmentation fault The backtrace is: Program received signal SIGSEGV, Segmentation fault. get_frame_type (info=0x0) at /utmp/coudert/gfortran/trunk/gcc/tree-nested.c:199 199 tree type = info->frame_type; (gdb) where #0 get_frame_type (info=0x0) at /utmp/coudert/gfortran/trunk/gcc/tree-nested.c:199 #1 0x00000000006b8a04 in get_chain_decl (info=0xdcc3f0) at /utmp/coudert/gfortran/trunk/gcc/tree-nested.c:305 #2 0x00000000006b9af4 in get_nonlocal_debug_decl (info=0xdcc3f0, decl=0x2a984ca000) at /utmp/coudert/gfortran/trunk/gcc/tree-nested.c:852 #3 0x00000000006bc1d3 in convert_nonlocal_reference (tp=0x2a984cecb0, walk_subtrees=0x7fbfffea7c, data=Variable "data" is not available. ) at /utmp/coudert/gfortran/trunk/gcc/tree-nested.c:923 #4 0x00000000007b076b in walk_tree (tp=0x2a984cecb0, func=0x6bc100 <convert_nonlocal_reference>, data=0x7fbfffec90, pset=0x0) at /utmp/coudert/gfortran/trunk/gcc/tree.c:8000 #5 0x00000000007b087f in walk_tree (tp=0x2a984cd448, func=0x6bc100 <convert_nonlocal_reference>, data=0x7fbfffec90, pset=0x0) at /utmp/coudert/gfortran/trunk/gcc/tree.c:8235 -- fxcoudert at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Keywords| |ice-on-valid-code Known to fail| |4.1.3 4.2.0 4.3.0 Last reconfirmed|0000-00-00 00:00:00 |2007-03-16 15:23:52 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31219