! { dg-do compile } | |
! | |
! PR 70601: [5/6/7 Regression] [OOP] ICE on procedure pointer component call | |
! | |
! Contributed by zmi <zmi007@gmail.com> | |
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 |