Dans les versions modernes du Fortran, le GOTO est toujours disponible même si on ne s'en sert plus en général.
Mais il en reste des versions cachées. Par exemple, voici un bout de code disponible dans la norme Fortran 2018 (j'ai juste changé la valeur de err) :
read(nunit,’(3f10.3)’,iostat=ios,err=666,end=120)a,b,c! Successful read - continue execution. ...666call error(ios)! Error condition - take appropriate action. return 120call last_file! End of file - test for more files.
Comme il n'y a pas de gestion d'exceptions en Fortran, on voit qu'on gère les erreurs d'entrées/sorties avec un label numérique. On peut aussi le faire pour la détection de la fin du fichier. C'est un peu surprenant dans un code moderne où il n'y a autrement plus aucune raison d'utiliser des labels numériques.
# GOTO cachés...
Posté par vmagnin (site web personnel, Mastodon) . En réponse au journal Is return the new goto ?. Évalué à 6. Dernière modification le 27 janvier 2024 à 13:18.
Dans les versions modernes du Fortran, le GOTO est toujours disponible même si on ne s'en sert plus en général.
Mais il en reste des versions cachées. Par exemple, voici un bout de code disponible dans la norme Fortran 2018 (j'ai juste changé la valeur de
err) :Comme il n'y a pas de gestion d'exceptions en Fortran, on voit qu'on gère les erreurs d'entrées/sorties avec un label numérique. On peut aussi le faire pour la détection de la fin du fichier. C'est un peu surprenant dans un code moderne où il n'y a autrement plus aucune raison d'utiliser des labels numériques.