blob: 3c750ce38b79424736a568b910502fdc7afb8465 [file] [log] [blame]
program main
use parent, only : child_function,grandchild_subroutine
implicit none
if (child_function()) call grandchild_subroutine
end program