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.
11 lines
272 B
11 lines
272 B
6 years ago
|
! 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
|