! { 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 |