Discussion :

[TheOyoStyledMan]

Bonjour,

on m'a déterré un code Fortran que je dois mettre à jour et je viens de voir une syntaxe que je ne connaissais pas avant.
Une subroutine est déclarée de la manière suivante:

Code :

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

subroutine toto(*)

Et son appel dans le code est le suivant:

Code :

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

call toto(*200)

Est-ce que par hasard quelqu'un connaitrait cette syntaxe? et surtout qu'est-ce qu'elle fait?

Merci d'avance

[FR119492]

Salut!
Evidemment, c'est une antiquité. Voici un exemple tiré du manuel du Compaq Fortran.

Programme principal:

Code :

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

1
2
3
4
5
6
7
8
9
       ...
      CALL CHECK(A,B,*10,*20,C)
      TYPE *,'VALUE LESS THAN ZERO'
      GO TO 30
   10 TYPE*,'VALUE EQUALS ZERO'
      GO TO 30
   20 TYPE*,'VALUE MORE THAN ZERO'
   30 CONTINUE
       ...

Sous-programme:

Code :

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

1
2
3
4
5
6
7
8
 
      SUBROUTINE CHECK(X,Y,*,*,Q)
       ...
   50 IF(Z) 60,70,80
   60 RETURN
   70 RETURN 1
   80 RETURN 2
      END

A la sortie du sous-programme, le programme principal continue directement si on est sorti du sous-programme par RETURN, saute à l'étiquette 10 si on est sorti par RETURN 1 et à 20 si on est sorti par RETURN 2.

Jean-Marc Blanc

[Sylvain Bergeron]

Tu dois éliminer cette syntaxe. Il est facile de reproduire le traitement par un code d'erreur testé au retour.

Reste que le feature est "intéressant". Certains compilateurs permettaient de brancher sur des étiquettes en dehors de la routine appelante. Le comportement devenait alors assez près "raise exception" qu'on trouve en C++ et Delphi notamment.

[TheOyoStyledMan]

Ok merci pour la réponse, évidemment on va enlever cette feature! Mais c'était une extension de Compaq Fortran ou vraiment une fonctionnalité de la norme 77 (66?)? Car, cela a l'air de fonctionner avec le compilateur Intel...

[Sylvain Bergeron]

Ce n'est pas une extension, c'est du vrai de vrai Fortran. Ça semble être introduit dans le langage par Fortran IV, donc 1961 ou 1962.

Depuis Fortran 95, c'est cependant obsolète, d'où la suggestion de l'éliminer. Et si tu as pris le temps de comprendre, pourquoi ne pas les enlever. Ton successeur appréciera...

[TheOyoStyledMan]

Merci Sylvain, c'était juste pour ma culture personnelle. Et oui, je peux te dire qu'on a enlevé cette syntaxe dès que vous me l'avez expliqué!