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