Tests/FortranModules/Submodules/child.f90


1
2
3
4
5
6
7
8
9
10

! 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