Un exemple de Programme

PROGRAM racines_carrees
   IMPLICIT NONE
   !----------------------------
   ! declaration des variables 
   !----------------------------
   INTEGER :: i, nrac
   REAL    :: valeur, racine
   !---------------------
   ! debut du programme
   !---------------------
   nrac = 3
   DO i = 1, nrac
      PRINT*,'Donner un nombre :'
      READ*,valeur
      IF ( valeur >=0 ) THEN
         racine = SQRT(valeur)
         PRINT*,'le nombre ', valeur ,' a pour racine :', racine
      ELSE
         print*,'le nombre ', valeur ,' ne possede pas de racine'
      ENDIF
   ENDDO
   PRINT*,'travail termine - au revoir'
END PROGRAM  racines_carrees