gfortran : CHARACTER dans REAL ?

Bonjour,

Je débute avec le compilateur gfortran.

J'essaie de compiler le programme suivant (Fortran 77) :

Code:

---

1 2 3 4 5 6 7 8 9

PROGRAM TEST REAL*8 VAL C VAL = 'Hello !!' WRITE (6,1000) VAL 1000 FORMAT(' My message : ', A8) C STOP END

---

Avec d'anciens compilateurs (Digital Visual Fortran, par exemple) : pas de souci. Tout fonctionne à merveille.
Avec le gfortran, je reçois le message d'erreur suivant :

Error: Can't convert CHARACTER(1) to REAL(8)

Existe-t-il une option du compilateur qui permet d'affecter automatiquement des CHARACTER à des REAL ?

Merci,
Lyk

Bonjour

Citation:

---

Envoyé par Lyk--

Avec d'anciens compilateurs (Digital Visual Fortran, par exemple) : pas de souci. Tout fonctionne à merveille.

---

Tout fonctionne à merveille?

Si on laisse une voiture sans essence ni moteur dévaler une pente, on constate qu'elle se déplace; doit-on pour autant en conclure qu'elle fonctionne à merveille?

Pour en revenir à ta question initiale, non il n'y a pas moyen d'obliger gfortran à "mettre sous le tapis" des erreurs qu'il détecte dans le code à compiler; Il faut simplement les corriger.
Et c'est bien plus sain comme ça.

Bonne continuation.

Ton programme utilise une stratégie Fortran IV (ou 66) et non 77.

Le type de donnée CHARACTER n'existait pas à l'époque. Pour imprimer des chaines de caractères, il fallait donc les assigner à des variables numériques. Ce type d'assignation ne fait plus partie du langage. Comme les anciens programmes sont ainsi codés, certains compilateurs commerciaux supportent encore ces constructions. Ce n'est pas le cas de gfortran car ce dernier supporte très peu de ces constructions historiques.

Pour corriger, tu peux changer le type de VAL pour CHARACTER (8). Tu peux aussi corriger partiellement seulement en ne changeant pas le type, mais en utilisant la fonction transfer pour l'assignation VAL = TRANSFER('Hello !!',VAL).