Discussion :

[feynman]

Bonjour,

après l'exécution d'un programme, j'ai eu une erreur que je ne comprends pas :

I/O recursion: I/O started while already doing I/O
apparent state: unit 6 (unnamed)
last format: list io
lately writing direct formatted external IO
Abandon

Est-ce que quelqu'un peut m'expliquer cette erreur ?
Merci

[Sylvain Bergeron]

Dans un write ou un print, tu utilises une fonction utilisant elle-même un write.

En Fortran (jusqu'à 1995 je crois - restriction levée à compter de 2003), il est illégal de faire un write dans un write (d'où le recursive du message).

En pratique, ça veut dire qu'une jolie fonction de formatage de nombre devient difficile à faire et à utiliser. L'exemple suivant est illégal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function RealToString(Nombre)
   real (*), intent(in) :: Nombre
   character (20) ::  RealToString
 
   write(RealToString,*) Nombre
   k = index(RealToString,'.')
   RealToString(k:k) = ','
   end
 
program
   ...
   write(*,*) 'Résultat : ',RealToString(Res)
   ...