blob: 6fba4bf645e5e5ad974f975794bc3444316beefa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
