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