Exit語句終止循環(huán)或select case語句,并將執(zhí)行立即循環(huán)或select 下面的語句。
流程圖
例子
program nestedLoop implicit none integer:: i, j, k iloop: do i = 1, 3 jloop: do j = 1, 3 kloop: do k = 1, 3 print*, "(i, j, k): ", i, j, k if (k==2) then exit jloop end if end do kloop end do jloop end do iloop end program nestedLoop
當(dāng)上述代碼被編譯和執(zhí)行時,它產(chǎn)生了以下結(jié)果:
(i, j, k): 1 1 1 (i, j, k): 1 1 2 (i, j, k): 2 1 1 (i, j, k): 2 1 2 (i, j, k): 3 1 1 (i, j, k): 3 1 2