blob: 88b40fd58d512504c29592d02bbc4539300adf4f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do compile }
! Test the fix for PR79447, in which the END PROCEDURE statement
! for MODULE PROCEDURE foo was not accepted.
!
! Contributed by Damian Rouson <damian@sourceryinstitute.org>
!
module foo_interface
implicit none
interface
module subroutine foo()
end subroutine
end interface
end module foo_interface
submodule(foo_interface) foo_implementation
contains
module procedure foo
contains
module subroutine bar()
end subroutine
end procedure
!end subroutine ! gfortran accepted this invalid workaround
end submodule
|