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
