[Bug fortran/16936] New: Internal compiler error for MERGE with character arguments #1 and 2

["paulthomas2 at wanadoo dot fr" <gcc-bugzilla at gcc dot gnu dot org>]

!This program fails to compile, with the following message:
! ../bin/gfortran bug3.f90 -o test
!assertion "POINTER_TYPE_P (TREE_TYPE (se->expr))" failed: file "../../gcc/gcc/fo
!rtran/trans-expr.c", line 1704
!bug3.f90: In function `MAIN__':
!bug3.f90:15: internal compiler error: Aborted
!Please submit a full bug report,
!with preprocessed source if appropriate.
!Distilled from Meissner textbook example
!If I understand the standard correctly, the first and second arguments of MERGE
!can be of any but the same type.
!
  program bug3 
    implicit none 
    logical, parameter :: t = .true. , f = .false.
    logical, dimension(8)       :: elodge =(/ t,f,t,f,t,f,t,f /)
!
    print '(8 A1)', Merge ("+", "-", elodge ) ! causes failure
!
!   print '(8I1)', Merge (1, 0, elodge ) ! works fine
!
    stop
  end program bug3

-- 
           Summary: Internal compiler error for MERGE with character
                    arguments #1 and 2
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: paulthomas2 at wanadoo dot fr
                CC: bdavis at gcc dot gnu dot org,gcc-bugs at gcc dot gnu
                    dot org


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