Fortran exit 語(yǔ)句

當(dāng)我們?cè)谑褂?do 循環(huán)語(yǔ)句時(shí)，如果想要在某個(gè)與循環(huán)條件無(wú)關(guān)的條件滿足時(shí)提前退出循環(huán)，就要使用 if 語(yǔ)句和 exit 語(yǔ)句的組合了。如示例 14 所示，當(dāng) sum 的值超過(guò) 10 時(shí)循環(huán)就會(huì)被提前終止。由于 1+2+3+4=10，所以 i 加到 5 才會(huì)使得 sum 值超過(guò) 10，此時(shí)的 sum 則為 1+2+3+4+5=15，而 i 也因?yàn)樘崆巴顺鲅h(huán)而不會(huì)執(zhí)行自增操作，所以此時(shí)輸出的 i 值為最后的 5。如果將原來(lái)的 exit 語(yǔ)句換成 goto 語(yǔ)句，并將 goto 語(yǔ)句指向的跳轉(zhuǎn)行設(shè)為循環(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