Le langage SMS est exclu sur les forums ProgBoards, tout message ne respectant pas la charte sera déplacé, modifié, ou supprimé par nos modérateurs.

Forum Langages » Autres Langages » [fortran] Problème de compilation

Francesco
Modérateur
Citer Linux Firefox - Posté le 16/07/2006 à 23:03
Bonsoir à tous

J'ai un petit problème lorsque j'essai de compiler Code Aster (un logiciel d'élément fini open source, celui d'EDF).
Et je pense que le problème vient de mon compilateur. Le lien sur le wall :

Wall (75) : Afficher le code source - Ouvrir dans une nouvelle fenêtre


J'utilise g77 version 4.1.1.
L'erreur que j'obtient est la suivante :


In file /opt/aster/STA8.3/bibfor/prepost/ircmva.f:240

END
1
Internal Error at (1):
gfc_resolve_expr(): Bad expression type



Le compilo me dit qu'il y a une erreur à la fin du fichier. Or, après moulte recherche, il s'avère que c'est la ligne 183 qui pose problème.


IF ( EDELGA(9:16).EQ.NOLOPG(9:16) ) THEN



Le problème viendrait de la variable EDELGA. Là où c'est encore plus étonnant, c'est que si je remplace la ligne par


IF ( EDELGA(9:15).EQ.NOLOPG(9:16) ) THEN



ca marche ! (enfin à la compilation, à l'exécution, c'est pas sur (sourire))

EDELGA est une chaine de 32 caractères, donc, normalement pas de problème.


Est-ce que quelqu'un qui a un autre compilateur ou une autre version de g77 peut compiler ce code chez lui juste pour tester svp. Ce sera très gentil.

Pour ceux qui veulent, la ligne de commande (pour g77) est :


g77 -c ircmva.f -o ircmva.o



Merci !
Gates gave you the windows.
GNU gave us the whole house.(Alexandrin)
Francesco
Modérateur
RemonterCiter Linux Firefox - Posté le 17/07/2006 à 18:18
Je soupçonne fortement un bug !
J'ai mis un code équivalent


IF ( EDELGA(9:15).EQ.NOLOPG(9:15) ) THEN
IF ( EDELGA(16:16).EQ.NOLOPG(16:16) ) THEN
IF ( MODNUM(TYMAST).EQ.1 ) THEN
LOGAUX = .TRUE.
ENDIF
ENDIF
ENDIF



et ca marche parfaitement !

Si quelqu'un pouvait essayer de compiler le fichier disponible sur le wall

Wall (75) : Afficher le code source - Ouvrir dans une nouvelle fenêtre
afin d'être sur.

Merci !
Gates gave you the windows.
GNU gave us the whole house.(Alexandrin)

Poster une réponse

STOP aux fautes volontaires !
Message
Formatage
Note: pour partager du code source, merci d'utiliser le wall !
Smileys (sourire) (yekyek) (clein d'oeil) (désapprouve) (triste) (cool) (langue) (confus) (gêné) (neutre) (eek) (surpris) (diable) (flèche) (exclamation) (question) (diable) (idée) (méchant)
Pseudonyme
Recopiez le code
v6 © Computaid SPRL 2005-2008 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,025 s - Crédits - Stats
1 connecté