https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89707
Bug ID: 89707 Summary: [F03] PDT with procedure pointer component Product: gcc Version: 9.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: janus at gcc dot gnu.org Target Milestone: --- Follow-up to PR 89601 (essentially the same ICE, but this time on valid code): program pdt_with_ppc type :: q (k) integer, kind :: k = 4 procedure (real(kind=k)), pointer, nopass :: p end type type (q) :: x end Current trunk ICEs like this: f951: internal compiler error: Segmentation fault 0xc9c0af crash_signal /home/janus/github/gcc/trunk/gcc/toplev.c:326 0x6994f3 resolve_component /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:13965 0x699e8a resolve_fl_derived0 /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:14315 0x69a4f7 resolve_fl_derived0 /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:14402 0x69a4f7 resolve_fl_derived /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:14444 0x6968ef resolve_symbol /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:14818 0x6b9822 do_traverse_symtree /home/janus/github/gcc/trunk/gcc/fortran/symbol.c:4157 0x690d54 resolve_types /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:16730 0x695ddc gfc_resolve(gfc_namespace*) /home/janus/github/gcc/trunk/gcc/fortran/resolve.c:16844 0x683347 resolve_all_program_units /home/janus/github/gcc/trunk/gcc/fortran/parse.c:6073 0x683347 gfc_parse_file() /home/janus/github/gcc/trunk/gcc/fortran/parse.c:6323 0x6cf1ff gfc_be_parse_file /home/janus/github/gcc/trunk/gcc/fortran/f95-lang.c:204 Apparently c->tb is NULL.