mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
19 lines
456 B
Plaintext
19 lines
456 B
Plaintext
! { 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
|