exit

Exit语句终止循环或select case语句，并在循环或select之后立即将执行转移到语句。

流程图 (Flow Diagram)

例子 (Example)

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