Tests/FortranModules/Submodules/main.f90


1
2
3
4
5
6
7

program main
  use parent, only : child_function,grandchild_subroutine
  use parent, only : sibling_function,GreatGrandChild_subroutine
  implicit none
  if (child_function()) call grandchild_subroutine
  if (sibling_function()) call GreatGrandChild_subroutine
end program