https://gcc.gnu.org/bugzilla/show_bug.cgi?id=44348
--- Comment #12 from Gerhard Steinmetz <gerhard.steinmetz.fort...@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