Patrick Corde & Anne Fouilloux

Remarques 151
Le paramètre END de l’instruction READ offre un autre
moyen de tester une fin de fichier pour un accès séquentiel
ou bien la présence d’un enregistrement de rang donné si
l’accès est direct. On lui indique le numéro (étiquette) de
l’instruction à laquelle on désire poursuivre le traitement.
De même, le paramètre ERR permet de se débrancher à
une instruction dans le cas d’une erreur de lecture.
CHARACTER(len=100) :: ch
print *, "Veuillez effectuer vos saisies :"
do
read( *, ’(a)’, END=1 ), ch
print ’(a)’, ch
end do
1 print *, "Arr^et de la saisie."
...
Remarque : au clavier, la saisie du caractère Ctrl-D
après le caractère newline (touche Enter) indique une fin
de fichier.
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux