[Bug fortran/44348] ICE in build_function_decl

[gerhard.steinmetz.fortran@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=44348

--- Comment #12 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Slightly modified variant :


$ cat z7.f90
subroutine s(x)
contains
   subroutine s(x)
   end
end


$ gfortran-7-20160828 z7.f90
z7.f90:3:0:

    subroutine s(x)

internal compiler error: in gfc_generate_function_code, at
fortran/trans-decl.c:6100
0x751496 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6100
0x74f357 gfc_generate_contained_functions
        ../../gcc/fortran/trans-decl.c:5194
0x74f357 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6143
0x6db090 translate_all_program_units
        ../../gcc/fortran/parse.c:5910
0x6db090 gfc_parse_file()
        ../../gcc/fortran/parse.c:6116
0x71d3a2 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198