Fortran-do-while-loop

Fortran-do whileループコンストラクト

特定の条件が真である間、ステートメントまたはステートメントのグループを繰り返します。 ループ本体を実行する前に条件をテストします。

構文

do while (logical expr)
   statements
end do

流れ図

do while

例

program factorial
implicit none

   ! define variables
   integer :: nfact = 1
   integer :: n = 1

   ! compute factorials
   do while (n <= 10)
      nfact = nfact * n
      n = n + 1
      print*,  n, " ", nfact
   end do
end program factorial

上記のコードをコンパイルして実行すると、次の結果が生成されます-

2             1
3             2
4             6
5            24
6           120
7           720
8          5040
9         40320
10        362880
11       3628800