Bug 161421

From Bugzilla Helper:
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.8) Gecko/20050524 Fedora/1.0.4-4 Firefox/1.0.4

Description of problem:
gfortran produces error when compiling a module that declares interface procedures. The interfaces are not recognized in the module where they are declared

Version-Release number of selected component (if applicable):
gcc-4.0.0-8

How reproducible:
Always

Steps to Reproduce:
1.gfortran -c m_interface.f90
2.
3.
  

Actual Results:  In file m_interface.f90:31

        l = len(s)
              1
Error: Symbol 'len' at (1) has no IMPLICIT type


Additional info:

This is a simple module that I created to reproduce the problem.

module m_interface
implicit none
	type string
       		private
          	integer                 :: len = 0
          	integer                 :: size = 0
          	character, pointer      :: chars(:) => null()
	end type string

interface len
          module procedure len_s
end interface

contains

      elemental function len_s(s)
          implicit none
          type(string), intent(in)  :: s
          integer                   :: len_s

          len_s = s%len
      end function len_s

      subroutine getLen(s)
	type(string), intent(inout) :: s
        integer :: l
        
        l = len(s)	
      end subroutine
	
end module m_interface