Discussion :

[developpeurP00]

Bonjour

J'ai un programme principal en fortran qui appelle la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 integer function zext(logvar)
 
      logical logvar
 
      if   (logvar) then
           zext=-1
      else
            zext= 0
      end if
 
      return
end

la fonction zext est défini dans un autre fichier appelé "zext.f"

quand je compile j'obtien l'erreur :

Function 'zext' at (1) has no IMPLICIT type

à chaque appel de zext dans le fichier principal ; je ne comprends pas d'où il vient le problème; le souci est que ce problème est rencontré avec gfortran seulement mais avec ifort tout passe bien

merci pour vos aides

[Sylvain Bergeron]

Un compilateur Fortran compile les sous-programme indépendamment l'un de l'autre. Dans le programme qui appelle une fonction, tu dois donc fournir le type de retour de la fonction. Le type peut être fourni :

• Implicitement, soit en absence d'implicit none, et à la condition que le type de la fonction corresponde au type implicite découlant de la première lettre du nom de la fonction.
• Par une déclaration explicite du type (integer zext dans ton cas).
• Par l'utilisation d'un module comme contenant de la fonction.
• Par l'utilisation d'un bloc interface.

[developpeurP00]

ok merci beaucoup

il manquait : "integer zext" : déclaration explicite