＜CYCLE Example Program＞

Program cycle_example
  Integer :: i
  Do i = 1, 5
    If (Mod(i,2)==0) Cycle
    Print *, i
  End Do
End

■ Execution Results

 1
 3
 5