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
