CMake/Tests/FortranModules/Submodules/parent.f90

module parent
  implicit none

  interface

    ! Test Fortran 2008 "module function" syntax
    module function child_function() result(child_stuff)
      logical :: child_stuff
    end function
    module function sibling_function() result(sibling_stuff)
      logical :: sibling_stuff
    end function

    ! Test Fortran 2008 "module subroutine" syntax
    module subroutine grandchild_subroutine()
    end subroutine
    module subroutine GreatGrandChild_subroutine()
    end subroutine

  end interface

end module parent