Fortran - exit 语句

• 

  简述

  Exit 语句终止循环或 select case 语句，并将执行转移到紧跟在循环或 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  
  

  编译并执行上述代码时，会产生以下结果 -

  
  (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