EXIT文
EXIT文
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
EXIT文と
CYCLE
文の違い