ex0601.f90

来自「经典的fortran95编程书,知名作者彭国伦 书的配套原程序,」· F90 代码 · 共 13 行

program ex0601
implicit none
  integer counter
  integer, parameter :: lines=10
  ! counter<=lines之前会一直重复循环
  ! 每跑一次循环counter会累加1
  do counter=1,lines,1
    write(*,*) "Happy Birthday",counter
  end do

  stop
end