[Bug fortran/89707] New: [F03] PDT with procedure pointer component

[janus at gcc dot gnu.org]

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.