[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 #2 from hjl at lucon dot org  2007-10-03 20:55 -------
It should be:

[hjl@gnu-27 pr33646]$ cat bar.f90 
module BAR_MODULE
   implicit none
   private
   public    create_
   interface create_
      module procedure create
   end interface
   type system_type
       integer(kind=kind(1)) :: max_memory_used
   end type

contains

   subroutine create(self)
    type(system_type) :: self
      pointer :: self
      allocate(self)
   end subroutine

end
[hjl@gnu-27 pr33646]$ cat bar.f90 
module BAR_MODULE
   implicit none
   private
   public    create_
   interface create_
      module procedure create
   end interface
   type system_type
       integer(kind=kind(1)) :: max_memory_used
   end type

contains

   subroutine create(self)
    type(system_type) :: self
      pointer :: self
      allocate(self)
   end subroutine

end
[hjl@gnu-27 pr33646]$ make
gfortran -c bar.f90
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)
make[1]: *** [foo.o] Error 1


-- 


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