program sumdemo
  implicit none
  integer :: i, total
  total = 0
  do i = 1, 10
    total = total + i
  end do
  print *, total
end program sumdemo