program main implicit none integer i, s s = 0 do i = 1, 10, s ! ループの増分値が 0 である。 print *, i end do end program