[Bug fortran/33646] [4.3 Regression] Gcc 4.3 failed to compile tonto in SPEC CPU 2006

["hjl at lucon dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #1 from hjl at lucon dot org  2007-10-03 20:33 -------
[hjl@gnu-23 build_base_o2.0000]$ cat bar.f90 
module BAR_MODULE
   implicit none
   private
   public    create_
   interface create_
      module procedure create
   end interface
contains
   subroutine create(self)
    character(*) :: self
      pointer :: self
      allocate(self)
   end subroutine
end
[hjl@gnu-23 build_base_o2.0000]$ /usr/gcc-4.3/bin/gfortran -c bar.f90
[hjl@gnu-23 build_base_o2.0000]$ cat foo.f90 
module FOO_MODULE
   use BAR_MODULE
   implicit none
   private
   public    create_
   interface create_
      module procedure create
   end interface

   public    create_copy_
   interface create_copy_
      module procedure create_copy
   end interface
contains

   subroutine create(self)
    character(*) :: self
      pointer :: self
      nullify(self)
      allocate(self)

      self = " "
   end subroutine

   subroutine create_copy(self,s)
    character(*) :: self
      pointer :: self
      character(*) :: s
      call create_(self)
   end subroutine
end
[hjl@gnu-23 build_base_o2.0000]$ /usr/gcc-4.3/bin/gfortran -c foo.f90
foo.f90:7.29:

      module procedure create
                            1
Error: Ambiguous interfaces 'create' and 'create' in generic interface
'create_' at (1)
foo.f90:7.29:

      module procedure create
                            1
Warning: Ambiguous interfaces 'create' and 'create' in generic interface
'create_' at (1)
[hjl@gnu-23 build_base_o2.0000]$ 


-- 


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