[Bug fortran/70601] [OOP] ICE on procedure pointer component call

[zmi007 at gmail dot com]

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

--- Comment #2 from zmi <zmi007 at gmail dot com> ---
and this one?

program    test
   use concrete_type_module
   implicit none
    type(concrete_type), allocatable :: concrete
    allocate(concrete)

   call concrete % init()
   call concrete % run()

end program test