You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
! 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
|
