gcc/testsuite/gfortran.dg/pr93423.f90

! { dg-do compile }
! PR fortran/93423 - ICE on invalid with argument list for module procedure

module t
  type :: b
   contains
     procedure :: p => bp
  end type b
  interface
     module function bp(s)
       class(b), intent(inout) :: s
       integer, pointer :: bp
     end function
  end interface
end module t

submodule (t) ts
contains
  module procedure bp(s) ! { dg-error "must be in a generic module interface" }
  end procedure bp       ! { dg-error "Expecting END SUBMODULE statement" }
end submodule ts