2018-11-29 20:27:00 +01:00

11 lines
272 B
Fortran

! 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