Fortran exit 語句

當我們在使用 do 循環(huán)語句時，如果想要在某個與循環(huán)條件無關的條件滿足時提前退出循環(huán)，就要使用 if 語句和 exit 語句的組合了。如示例 14 所示，當 sum 的值超過 10 時循環(huán)就會被提前終止。由于 1+2+3+4=10，所以 i 加到 5 才會使得 sum 值超過 10，此時的 sum 則為 1+2+3+4+5=15，而 i 也因為提前退出循環(huán)而不會執(zhí)行自增操作，所以此時輸出的 i 值為最后的 5。如果將原來的 exit 語句換成 goto 語句，并將 goto 語句指向的跳轉行設為循環(huán)外的下一行，則最后的效果也是一樣的，如示例 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