sibling.f90 284 B

123456789
  1. ! Empty submodule for checking disambiguation of
  2. ! nodes at the same vertical level in the tree
  3. submodule ( parent ) sibling
  4. contains
  5. module function sibling_function() result(sibling_stuff)
  6. logical :: sibling_stuff
  7. sibling_stuff=.true.
  8. end function
  9. end submodule sibling