[Bug fortran/70601] [5/6/7 Regression] [OOP] ICE on procedure pointer component call

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
      Known to work|                            |4.9.4
   Target Milestone|---                         |7.0
            Summary|[OOP] ICE on procedure      |[5/6/7 Regression] [OOP]
                   |pointer component call      |ICE on procedure pointer
                   |                            |component call
      Known to fail|                            |5.4.1, 6.2.0

--- Comment #5 from janus at gcc dot gnu.org ---
I boiled the test case down a bit:


program test
  implicit none

  type :: concrete_type
    procedure (run_concrete_type), pointer :: run
  end type

  type(concrete_type), allocatable :: concrete

  allocate(concrete)
  concrete % run => run_concrete_type
  call concrete % run()

contains

   subroutine run_concrete_type(this)
      class(concrete_type) :: this
   end subroutine

end


I see the ICE with trunk and 6.2 and a slightly different one with 5.4, but
none with 4.9, so this is a regression.