Fortran exit語句

Exit語句終止循環或select case語句,並將執行立即循環或select 下面的語句。

流程圖

Exit

例子

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

當上述代碼被編譯和執行時,它產生了以下結果:

(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