[Bug fortran/37494] New: function of a module not recognized by a subroutine in the same module

[Jean-Charles dot Gilbert at inria dot fr]

The function 'fonc' defined in the module below is not recognized by the
subroutine 'sub' in the same module.

module essai
!-------------------------------
contains
!-------------------------------
  subroutine sub ()
  implicit none
  double precision :: fonc
  double precision :: d
  d = fonc()
  return
  end subroutine sub
!-------------------------------
  function fonc ()
  implicit none
  double precision :: fonc
  fonc = 1.d0
  return
  end function fonc
!-------------------------------
end module essai

The compiled object 'essai.o' is obtained by

   gfortran -c essai.f90

and the following command

   nm essai.o | grep fonc

answers

   00000000 T ___essai_MOD_fonc
            U _fonc_


This is so elementary that I would be glad to have made a trivial mistake. This
problem did not occurred in previous version of gfortran; it does not occur in
pgf90 either.


-- 
           Summary: function of a module not recognized by a subroutine in
                    the same module
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Jean-Charles dot Gilbert at inria dot fr


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37494