gcc/testsuite/gfortran.dg/submodule_24.f08

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