ex0606.f90

经典的fortran95编程书,知名作者彭国伦 书的配套原程序,

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

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

  stop
end