Question

谁能解释下面这个fortran程序输出的意义？

赋值时n为什么+1了？
program t
implicit none
integer(4) i
do i=1,10
print*,i,fact(i)
end do

contains
function fact(n)
integer(4) fact, n
do i=1,n
enddo
fact= i
end function fact

end

Answer 1

循环结束后，循环变量的值，语法没有规定。

对于绝大多数编译器，至少我所知的所有编译器，它通常是循环终止值加上 0 到一个循环步长。取决于循环终止条件。

如果不特别指定，默认的循环步长是 1，所以，循环结束后，i 的值是 n+1

我们来假设另一个情况：
Do i = 1 , 8 , 2
循环步长为2，那么 i 每次+2，于是取值分别为 1，3，5，7，9
编译器只有在计算完 7+2=9以后，才能判断 9>8。
所以，循环结束后，i 的值是 9。
因此，大多数编译器，当循环完毕后，循环变量的值都是会比循环终止值大一点的。

我不确定所有编译器都会这样，所以，最好的方法就是循环结束后，避免直接引用循环变量。

PS：除非涉及多进程，多线程，或者并行化计算。否则空循环通常是没有必要的。