[Bug fortran/33376] New: [4.3 regression] USE with renaming, assembler message: symbol already defined

[anlauf at gmx dot de]

Hi,

the following program fails to compile with rev.128283
but used to work just a few days ago:

% cat gfcbug70.f90
module foo
  implicit none
  public chk

  type mytype
    character(len=4) :: str
  end type mytype
  type (mytype) ,parameter :: chk (1) = (/ mytype ("abcd") /)
end module foo

module gfcbug70
  use foo, only: chk_ => chk
  implicit none
contains

  subroutine chk (i)
    integer, intent(in) :: i

    print *, chk_(i)% str
  end subroutine chk
end module gfcbug70

I get:

/tmp/ccnnONGa.s: Assembler messages:
/tmp/ccnnONGa.s:19: Error: symbol `__gfcbug70_MOD_chk' is already defined


-- 
           Summary: [4.3 regression] USE with renaming, assembler message:
                    symbol already defined
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at gmx dot de
  GCC host triplet: i686-pc-linux-gnu


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