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
|