program program !<<<<<START
    print *, "Hello"
end program program

subroutine s
    integer :: i
    do i = 3, 4
        do j = 5, 6
            print *, i + j
        end do
    end do
end subroutine !<<<<<END