fortran/test/bench.f90 · 144 字节 · 下载原文

program benchmark
implicit none
integer :: i,a,b
a=0;b=1
do i=0,9999; a=a+i; a=a-1; end do
do i=1,9999; b=b*i; b=b/i; end do
end program