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