program main
  !
  ! Sample program of DO-loop
  !
  implicit none
  integer :: s,i

  s=0

  do i=1,9,2
    s=s+i
  end do

  write(*,*) 's =',s

end program main

実行結果