Fortran -  Cycle 语句

• 

  简述

  循环语句使循环跳过其主体的其余部分，并在重新迭代之前立即重新测试其条件。
• 

  例子

  
  program cycle_example     
  implicit none      
     integer :: i     
     
     do i = 1, 20          
     
        if (i == 5) then 
           cycle          
        end if         
        
     print*, i      
     end do  
     
  end program cycle_example
  

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

  
  1
  2
  3
  4
  6
  7
  8
  9
  10
  11
  12
  13
  14
  15
  16
  17
  18
  19
  20