Tests/FortranModules/Submodules/main.f90

   1 program main
   2   use parent, only : child_function,grandchild_subroutine
   3   use parent, only : sibling_function,GreatGrandChild_subroutine
   4   implicit none
   5   if (child_function()) call grandchild_subroutine
   6   if (sibling_function()) call GreatGrandChild_subroutine
   7 end program