------- Comment #1 from hjl at lucon dot org 2007-10-03 20:33 -------
[EMAIL PROTECTED] 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
[EMAIL PROTECTED] build_base_o2.0000]$ /usr/gcc-4.3/bin/gfortran -c bar.f90
[EMAIL PROTECTED] 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
[EMAIL PROTECTED] 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)
[EMAIL PROTECTED] build_base_o2.0000]$
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33646
