Fortran cycle 控制

! 略过目前的模块，直接进入下一个循环
do floor, dest
    if (floor == 4) cycle
    write (*, *) floor
end do