1! { dg-do compile }
2!
3! Test the fix for PR68237 in which 'foo' caused a seg fault rather than an error.
4!
5! Contributed by Martin Reinecke  <martin@mpa-garching.mpg.de>
6!
7module m1
8  interface
9    module subroutine bar
10    end subroutine
11  end interface
12end module m1
13
14submodule (m1) m2
15contains
16  module procedure foo ! { dg-error "must be in a generic module interface" }
17  end procedure ! { dg-error "Expecting END SUBMODULE statement" }
18end submodule
19