ex0606.f90

Fortran 95程序设计【彭国伦】第6章原代码

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

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

  stop
end