Fortran - Construire en boucle

Il répète une déclaration ou un groupe d'instructions tant qu'une condition donnée est vraie. Il teste la condition avant d'exécuter le corps de la boucle.

Syntaxe

do while (logical expr) 
   statements
end do

Représentation schématique

Exemple

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

Lorsque le code ci-dessus est compilé et exécuté, il produit le résultat suivant -

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