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...