------- Comment #4 from fxcoudert at gcc dot gnu dot org 2007-08-06 09:49 ------- OK, I downloaded GlobSol and have a reduced testcase:
$ cat pr32926.f90 subroutine foo (fcn) external fcn contains subroutine bar call fcn end subroutine bar end subroutine foo $ gfortran pr32926.f90 pr32926.f90: In function bar: pr32926.f90:4: internal compiler error: in gfc_get_symbol_decl, at fortran/trans-decl.c:890 The backtrace is: Breakpoint 1, fancy_abort ( file=0xb03900 "../../../trunk2/gcc/fortran/trans-decl.c", line=890, function=0xb03f60 "gfc_get_symbol_decl") at ../../../trunk2/gcc/diagnostic.c:654 654 { (gdb) where #0 fancy_abort (file=0xb03900 "../../../trunk2/gcc/fortran/trans-decl.c", line=890, function=0xb03f60 "gfc_get_symbol_decl") at ../../../trunk2/gcc/diagnostic.c:654 #1 0x000000000048c5a3 in gfc_get_symbol_decl (sym=0xe8e1d0) at ../../../trunk2/gcc/fortran/trans-decl.c:888 #2 0x000000000048ec58 in gfc_conv_function_val (se=0x7fff83f5a240, sym=0x37a) at ../../../trunk2/gcc/fortran/trans-expr.c:1252 #3 0x00000000004909b6 in gfc_conv_function_call (se=0x7fff83f5a240, sym=0xe8e1d0, arg=0x0, append_args=0x0) at ../../../trunk2/gcc/fortran/trans-expr.c:2459 #4 0x00000000004ab86f in gfc_trans_call (code=0xe8ee30, dependency_check=0 '\0') at ../../../trunk2/gcc/fortran/trans-stmt.c:331 -- fxcoudert at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|fxcoudert at gcc dot gnu dot|unassigned at gcc dot gnu |org |dot org Status|ASSIGNED |NEW http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32926