ex0610.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 14 行

program  ex0610
implicit none
  integer counter
  integer :: ans = 0

  do counter = 1, 100
    ans = ans + counter
  end do

  write(*,*) ans

  stop
end