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