Fortran cycle 语句

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