Discussion :

[melreg]

Bonjour,

Après avoir chercher sur ce forum et sur internet avec mon moteur de recherche préféré, je viens poster mon problème ici.
Mon programme dois lire un fichier. Mais ce fichier peut être vide. Dans ce cas, j'aimerais pouvoir détecter le fait qu'il soit vide pour éviter de vouloir le lire et ainsi éviter le message d'erreur:

Fortran runtime error: End of file

Est-ce qu'il y a un moyen de faire ça?

Merci d'avance

[Sylvain Bergeron]

Tu dois utiliser la clause iostat à la lecture et tester le résultat. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
read(20,*,iostat=k) liste
if (k < 0) then
   print *, 'Fin inattendue'
   stop
elseif (k > 0) then
   print *, 'autre type d''erreur'
   stop
else
   ... suite normale...

[melreg]

merci!