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

Reply via email to