3 ! PR 70601: [5/6/7 Regression] [OOP] ICE on procedure pointer component call
5 ! Contributed by zmi <zmi007@gmail.com>
11 procedure (run_concrete_type
), pointer :: run
14 type(concrete_type
), allocatable
:: concrete
17 concrete
% run
=> run_concrete_type
22 subroutine run_concrete_type(this
)
23 class(concrete_type
) :: this