11 lines
272 B
Fortran
Raw Normal View History

2018-08-09 18:06:22 +02:00
! Test the notation for a 1st-generation direct
! descendant of a parent module
2018-11-29 20:27:00 +01:00
SUBMODULE ( parent ) child
2018-08-09 18:06:22 +02:00
implicit none
2018-11-29 20:27:00 +01:00
CONTAINS
2018-08-09 18:06:22 +02:00
module function child_function() result(child_stuff)
logical :: child_stuff
child_stuff=.true.
end function
2018-11-29 20:27:00 +01:00
END SUBMODULE child