subroutine hmmm
    do 10 i = 1, 5
       call new_procedure(i)
       print *, i
10  continue
end subroutine

subroutine new_procedure(i)
    implicit none
    integer :: i
    print *, i                   !<<<<<START
    if (i .gt. 3) then
      print *, i * 10
    end if                       !<<<<<END
end subroutine


program main; call hmmm; call flush; stop; end program