! { dg-do compile }
!
! Test the fix for PR68237 in which 'foo' caused a seg fault rather than an error.
!
! Contributed by Martin Reinecke  <martin@mpa-garching.mpg.de>
!
module m1
  interface
    module subroutine bar
    end subroutine
  end interface
end module m1

submodule (m1) m2
contains
  module procedure foo ! { dg-error "must be in a generic module interface" }
  end procedure ! { dg-error "Expecting END SUBMODULE statement" }
end submodule