[Bug fortran/90786] [7/8/9 Regression] ICE on procedure pointer assignment to function with class pointer result

[tkoenig at gcc dot gnu.org]

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

--- Comment #8 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Stepping through the assembly, the segfaulting instruction is
"blr x3", which jumps to a NULL pointer, with predictable results:

   │165     // proc_ptr_51.f90:30: end module f                                
                                                                               
                                                                               
                              │
   │166             str     w4, [x0]        // tmp117, MEM[(struct s &)_7].i   
                                                                               
                                                                               
                              │
   │167     // proc_ptr_51.f90:33:   allocate (tgt, source = s(99))            
                                                                               
                                                                               
                              │
   │168             str     x1, [x21, 8]    // tmp116, tgt._vptr               
                                                                               
                                                                               
                              │
   │169     // proc_ptr_51.f90:35:   res => c_()                               
                                                                               
                                                                               
                              │
  >│170             blr     x3              // c_

(gdb) info register x3
x3             0x0      0