Fortran exit 语句
当我们在使用 do 循环语句时，如果想要在某个与循环条件无关的条件满足时提前退出循环，就要使用 if 语句和 exit 语句的组合了。如示例 14 所示，当 sum 的值超过 10 时循环就会被提前终止。由于
1+2+3+4=10，所以 i 加到 5 才会使得 sum 值超过 10，此时的 sum 则为 1+2+3+4+5=15，而
i 也因为提前退出循环而不会执行自增操作，所以此时输出的 i 值为最后的 5。如果将原来的 exit 语句换成 goto 语句，并将 goto 语句指向的跳转行设为循环外的下一行，则最后的效果也是一样的，如示例 15 所示。
!!! 示例 14
sum = 0
do i = 1, 10
sum = sum + i
if (sum > 10) exit
enddo
print *, i, sum ! 输出 i 的值为 5，sum 的值为 15
!!! 示例 15
sum = 0
do i = 1, 10
sum = sum + i
if (sum > 10) goto 8
enddo
8 print *, i, sum ! 输出 i 的值仍为 5，sum 的值仍为 15