[Bug fortran/31219] ICE on valid code with gfortran

[fxcoudert at gcc dot gnu dot org]

------- 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