Cut-down code to reproduce problem:
module mod_procs
type, public :: type_box
integer, public :: m
contains
procedure :: suba
end type type_box
interface
module subroutine suba(this,n)
class(type_box) :: this
integer :: n
end subroutine suba
end interface
end module mod_procs
submodule(mod_procs) mod_procs_suba
implicit none
contains
module procedure suba !(n)
write(*,*) this%m, n
this%m = this%m + 1
call minus_1
call plus_1
return
entry minus_1
write(*,*) n-1
return
entry plus_1
write(*,*) n+1
return
end procedure suba
end submodule mod_procs_suba
program P1
use mod_procs
implicit none
type(type_box) :: box
box%m = 9
call box%suba(3)
print *, 'Hello World'
end program P1
>>fortcom: Fatal: There has been an internal compiler error (C0000005).
