! Test the notation for a 1st-generation direct
! descendant of a parent module
SUBMODULE ( parent ) child
  implicit none
CONTAINS
  module function child_function() result(child_stuff)
    logical :: child_stuff
    child_stuff=.true.
  end function
END SUBMODULE child