https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85703
--- Comment #2 from G. Steinmetz <gs...@t-online.de> --- Similar for openmp, e.g. $ cat za.f90 character function f() !$omp single !$omp end single f = 'a' end $ cat zb.f90 function f() result(z) character :: z !$omp single !$omp end single z = 'a' end $ gfortran-9-20180506 -c zb.f90 -fopenmp $ $ gfortran-9-20180506 -c za.f90 -fopenmp f951: internal compiler error: Segmentation fault 0xcefc7f crash_signal ../../gcc/toplev.c:325 0x74735a resolve_fntype ../../gcc/fortran/resolve.c:16313 0x74735a resolve_types ../../gcc/fortran/resolve.c:16456 0x742b0c gfc_resolve(gfc_namespace*) ../../gcc/fortran/resolve.c:16568 0x72c26a resolve_all_program_units ../../gcc/fortran/parse.c:6060 0x72c26a gfc_parse_file() ../../gcc/fortran/parse.c:6310 0x773dbf gfc_be_parse_file ../../gcc/fortran/f95-lang.c:204