cycle語句使循環(huán)跳過它的主體的其余部分,并立即重新測試其條件在聲明之前。
流程圖
例子
program cycle_example implicit none integer :: i do i = 1, 20 if (i == 5) then cycle end if print*, i end do end program cycle_example
當(dāng)上述代碼被編譯和執(zhí)行時,它產(chǎn)生了以下結(jié)果:
1 2 3 4 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20