EXIT文
copyright

green dotEXIT文

EXIT文は、DOループのから抜け出し、END DO文の次の命令に制御を移す。

  EXIT [ DO文の名前 ]

[例]
sの値が55より大きくなった場合に、DOループのから抜け出す。

    INTEGER :: i,s
    s=0
    DO i=1,1000
       s=s+i
       IF (i > 55) EXIT
    END DO
    WRITE(*,*) i

green dotEXIT文とCYCLE文の違い

cycle exit line-end