From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-231341-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 19625 invoked by alias); 3 Oct 2007 20:33:54 -0000
Received: (qmail 19598 invoked by uid 48); 3 Oct 2007 20:33:45 -0000
Date: Wed, 03 Oct 2007 20:33:00 -0000
Message-ID: <20071003203345.19597.qmail@sourceware.org>
X-Bugzilla-Reason: CC
References: <bug-33646-682@http.gcc.gnu.org/bugzilla/>
Subject: [Bug fortran/33646] [4.3 Regression] Gcc 4.3 failed to compile tonto in SPEC CPU 2006
In-Reply-To: <bug-33646-682@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "hjl at lucon dot org" <gcc-bugzilla@gcc.gnu.org>
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2007-10/txt/msg00256.txt.bz2



------- 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