[Fortran] Boucle for

Salut

PROGRAM FACTORIELLE
  IMPLICIT NONE
  INTEGER :: FACT,M,N

  WRITE(*,*) 'Entrez un entier : '
  READ(*,*) N

  FACT=1

  DO M=1,N
     FACT=FACT*M
  END DO
  WRITE(*,*) 'La factorielle de ', N, ' est : ', FACT
   
END PROGRAM FACTORIELLE

A plus

salut,

pour une variable maximale à entrer, le programme ne calcule plus la fonction car la valeur est trop grande, Alors je voudrais savoir comment faire pour que pour une valeur entréé trop grande, le programme nous demande d'entrer une autre valeur?? (pour la factorielle juste au-dessus)?

Merci

Salut
Avec une boucle while.

Tant que N > une valeur fixée
WRITE(*,*) 'Entrez un entier : '
Etc...

Ciao