Discussion :

[nymformaticien]

Bonjour,

Je souhaite compiler un projet fortran 77.
Je sais que ce code a été compilé (il y a bien longtemps) avec Intel Fortran Compiler. Malheureusement, Intel Fortran Compiler est payant pour une utilisation professionnelle/commerciale (ce qui est mon cas).

Deux problèmes :
1) chacun des fichiers *.f comporte un en-tête commençant par :

Code :

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

$VERSION

2) certains fichiers comporte des déclarations de tableaux comme suit :

Code :

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

dimension tab1,tab2,tab3

J'ai essayé avec GNU Fortran (GCC) 4.4.0.
La compilation de :

Code :

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

1
2
3
4
5
$VERSION
      PROGRAM HELLOW
       dimension  tab1,tab2,tab3
       WRITE(UNIT=*, FMT=*) 'Hello World'
      END

par

Code :

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

gfortran -c -o hello.o hello.f

provoque les erreurs suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
hello.f:1.1:
 
$VERSION
 1
Error: Non-numeric character in statement label at (1)
hello.f:1.1:
 
$VERSION
 1
Error: Unclassifiable statement at (1)
hello.f:3.22:
 
       dimension  tab1,tab2,tab3
                      1
Error: Missing array specification at (1) in DIMENSION statement

Je précise qu'il me faudrait 3 exécutables :
- Win32
- Linux
- Mac OS

Connaitriez-vous un compilateur qui me permettrait d'ignorer les balises $VERSION (s'il s'agit bien de balises), de déclarer des tableaux sans taille, et qui compile sous Win32, Linux, Mac OS ?

Une autre solution consisterait à modifier le code, mais je ne connais pas du tout fortran.

Merci par avance pour vos réponses.

CC

[genteur slayer]

il me semble que le compilateur intel fortran n'a pas de version MacOS... gfortran est une très bonne solution pour cela...

le code que tu présente est assez étrange les "$version" semble être des directives de précompilation pour "pré-compiler" avec gfortran il faut utiliser gcc: "gcc -E" mais ces directives doivent être écrite comme

Code :

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

#version

pour reprendre l'exemple donc un moyen simple pour toi serai de faire un "replace all"dans tout tes source code du caractère "$" par "#" si le $ est en première colonne

[nymformaticien]

Merci pour ta réponse.
Je pourrais aussi remplacer "$VERSION" par "c $VERSION".

Et pour les tableaux sans taille, tu as une idée ?

[Sylvain Bergeron]

Des tableaux sans taille ? C'est assez louche. Il faut qu'une taille soit éventuellement allouée pour ces tableaux. Si la déclaration des tableaux n'est pas standard, l'allocation et/ou la manipulation de ces tableaux peut très bien ne pas l'être non plus. Ta recherche de solution doit donc inclure cet élément.

Le compilateur Intel est gratuit je crois pour des projets Linux non commerciaux. Tu devrais au moins essayer de compiler dans cet environnement pour voir...

[nymformaticien]

@genteur slayer :
J'ai regardé sur http://gcc.gnu.org/onlinedocs/gcc/Ov...verall-Options et j'ai trouvé :

-E
Stop after the preprocessing stage; do not run the compiler proper. The output is in the form of preprocessed source code, which is sent to the standard output.

Input files which don't require preprocessing are ignored.

Pour ma part, j'aimerais compiler mon code.

@Sylvain Bergeron :
Oui c'est louche. Mais comme c'est du (très) vieux code en Fortran 77. Peut-être qu'à l'époque certains compilateurs étaient très (trop) permissifs.

J'ai trouvé sur http://en.wikipedia.org/wiki/Fortran
une version de Fortran qui pourrait correspondre à ce type de syntaxe :

FOR TRANSIT for the IBM 650

"FOR TRANSIT" was the name of a reduced version of the IBM 704 FORTRAN language, which was implemented for the IBM 650, using a translator program developed at Carnegie [16] in the late 1950s.(...)
The permissible statements were:

Arithmetic assignment statements, e.g. a = b
GO to n
GO TO (n1, n2, ..., nm), i
IF (a) n1, n2, n3
PAUSE
STOP
DO n i = m1, m2
CONTINUE
END
READ n, list
PUNCH n, list
DIMENSION V, V, V, ...
EQUIVALENCE (a,b,c), (d,c), ...

Finalement, et même si je n'en avais pas trop l'envie au départ, j'ai fait une sorte de "patch" pour corriger les erreurs de compilation. Ça m'a permis de faire joujou avec les expressions régulières.

Encore merci à vous deux.

[genteur slayer]

pour compiler:

gfortran -c -o hello.o hello.f

avec les bonnes instruction de commentaire ( avec ! ou avec c) ensuite pour arrivé à compiler avec tes tableaux sans dimension... mystère...

je pense que c'est du code spécifique à ton précédent compilateur, je commencerai par chercher dans le manuel... mais c'est pas dit qu'il y ait qqchose... dur dur...

[nymformaticien]

Conclusion concernant les tableaux sans taille : c'était du code mort. Je les ai donc simplement commentés.