10 lines
284 B
Fortran
10 lines
284 B
Fortran
|
! Empty submodule for checking disambiguation of
|
||
|
|
! nodes at the same vertical level in the tree
|
||
|
|
submodule ( parent ) sibling
|
||
|
|
contains
|
||
|
|
module function sibling_function() result(sibling_stuff)
|
||
|
|
logical :: sibling_stuff
|
||
|
|
sibling_stuff=.true.
|
||
|
|
end function
|
||
|
|
end submodule sibling
|