Patrick Corde & Anne Fouilloux

Les tests 70
Exemples
PROGRAM structure_case
integer :: mois, nb_jours
logical :: annee_bissext
...
SELECT CASE(mois)
CASE(4, 6, 9, 11)
nb_jours = 30
CASE(1, 3, 5, 7:8, 10, 12)
nb_jours = 31
CASE(2)
!----------------------------------
fevrier: select case(annee_bissext)
case(.true.)
nb_jours = 29
case(.false.)
nb_jours = 28
end select fevrier
!----------------------------------
CASE DEFAULT
print *, ’ Numéro de mois invalide’
END SELECT
END PROGRAM structure_case
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux