Discussion :

[genteur slayer]

voilà j'ai un problème tout bête:

voici un code f95: dans un fichier toto.f90

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
16
17
18
19
20
module pdscal
!
interface operator (.scalt.)
  module procedure ps_t
end interface
interface
    function ps_t (x)
      implicit none
      real (kind = 8), intent (in) :: x
      real (kind = 8) :: ps_t
    end function ps_t
end interface
end module pdscal
function ps_t (x)
  implicit none
  real (kind = 8), intent (in) :: x
  real (kind = 8) :: ps_t
      ps_t = x +1.d0
  return
end function ps_t

je cherche seulement à le compiler:
gfortran -c toto.f90 -> pas d'erreur tout se passe bien
g95 -c toto.f90 me renvoie:

Code :

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

1
2
3
4
5
6
 
In file toto.f90:8
 
    function ps_t (x)
             1
Error: MODULE PROCEDURE 'ps_t' at (1) never appeared in a module

à noté, si je transforme le bloc interface en un contains, là, pas d'erreur...

ma question: qu'est ce que j'ai fait de mal????

je veux dire pourquoi g95 n'en veut pas de ce code (c'est un morceau épuré qui est contenu dans un gros truc, je peux pas tout changer)

de plus, j'ai un collègue qui m'a dit que sur le compilo ifort cela marchait...

[Sylvain Bergeron]

À mon avis, le meilleur endroit pour avoir une réponse à ce genre de question est comp.lang.fortran sur Usenet que tu peux également accéder via Google Groups (http://groups.google.com/group/comp.lang.fortran/topics). Tu devras cependant soumettre ta question en anglais...

[genteur slayer]

j'ai trouvé ma réponse tout seul:

ce code là marche, mais c'était juste un test personnel pour voir, je n'ai vu ça nul part ailleurs.. donc si qqun a des idées...

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
16
17
 
module toto
implicit none
interface operator (.ps.)
  real (kind = 8) function ps_phi (x, y)
    implicit none
    real (kind = 8), intent (in) :: x, y
  end function ps_phi
end interface
end module toto
real (kind = 8) function ps_phi (x, y)
  implicit none
  real (kind = 8), intent (in) :: x, y
  !
  ps_phi=x*y
  return
end function ps_phi

en gros on utilise pas du tout le traditionnel "module procedure" et on met directement l'entête des la fonction dans le "interface operator" je trouve ça un peu trop simple mais aparament cela marche!!!