Bug 161421 - gfortran produces error when compiling a module that declares interface procedures. The interfaces are not recognized in the module where they are declared
gfortran produces error when compiling a module that declares interface proce...
Status: CLOSED UPSTREAM
Product: Fedora
Classification: Fedora
Component: gcc4 (Show other bugs)
4
i386 Linux
medium Severity medium
: ---
: ---
Assigned To: Jakub Jelinek
gfortran module interface
:
Depends On:
Blocks:
  Show dependency treegraph
 
Reported: 2005-06-23 04:25 EDT by paulo
Modified: 2007-11-30 17:11 EST (History)
0 users

See Also:
Fixed In Version:
Doc Type: Bug Fix
Doc Text:
Story Points: ---
Clone Of:
Environment:
Last Closed: 2005-07-07 11:51:05 EDT
Type: ---
Regression: ---
Mount Type: ---
Documentation: ---
CRM:
Verified Versions:
Category: ---
oVirt Team: ---
RHEL 7.3 requirements from Atomic Host:
Cloudforms Team: ---


Attachments (Terms of Use)

  None (edit)
Description paulo 2005-06-23 04:25:41 EDT
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
Comment 1 Jakub Jelinek 2005-07-07 11:51:05 EDT
Can you please file this problem upstream instead?  It is present on today's
GCC CVS HEAD as well.  http://gcc.gnu.org/bugzilla/
Thanks.

Note You need to log in before you can comment on or make changes to this bug.