[Bug fortran/85703] ICE in resolve_fntype, at fortran/resolve.c:16313

[gscfq@t-online.de]

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

--- Comment #2 from G. Steinmetz <gscfq@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