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
|