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