- ! 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
|