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