ex0610.f90

Fortran 95程序设计【彭国伦】第6章原代码

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

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

  write(*,*) ans

  stop
end