program ex0601
implicit none
  integer counter
  integer, parameter :: lines=10
  ! counter<=lines之前會(huì)一直重復(fù)循環(huán)
  ! 每跑一次循環(huán)counter會(huì)累加1
  do counter=1,lines,1
    write(*,*) "Happy Birthday",counter
  end do

  stop
end