ex0606.f90

来自「Fortran 95程序设计【彭国伦】 Source_Code.rarFortr」· F90 代码 · 共 13 行

program ex0606
implicit none
  integer :: dest = 9
  integer floor

  do floor=1, dest
    if ( floor==4 ) cycle
	write(*,*) floor
  end do

  stop
end