!　学習目的：その他（goto文）
! ex304.f
      n=0
   10 n=n+1 !重要：do文のように繰り返し計算をするときによく使われる手法
      if(n.eq.10) goto 15 !もし，この行がなければ無限ループになる．
      goto 10
   15 write(*,*) n
      write(*,*)

      n=0
   20 n=n+1
      if(n.le.9) goto 20
      write(*,*) n
      write(*,*)

      stop
      end

!　goto文を多用すると流れがあっちこっちに飛ぶので，プログラムが分かりにくくなる．
!　ifブロック文で代用できる場合も多く，その場合はifブロックにすることを薦める．