ex0610.f90

来自「经典的fortran95编程书,知名作者彭国伦 书的配套原程序,」· F90 代码 · 共 14 行

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

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

  write(*,*) ans

  stop
end