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