[Bug fortran/15196] New: gfortran ICE: gfc_trans_scalar_assign: Assertion `lse->string_length != blah'

[olchansk at panix dot com]

This code does not compile. absoft and icc are fine.

module foo
  implicit none

  type:: dctype
     character LCR
  end type dctype

  type:: permtype
     character LCR(100)
  end type permtype

  type(dctype)::   dchitpos(100)
  type(permtype):: perm(100)

contains
  subroutine bar
    integer:: n, ii
    !! following line produces:
    !! f951: ../../gcc/gcc/fortran/trans-expr.c:1595: gfc_trans_scalar_assign:
Assertion `lse->string_length != (tree) ((void *)0) && rse->string_length !=
(tree) ((void *)0)' failed.
    dchitpos(1:n)%LCR = perm(ii)%LCR(1:n)
  end subroutine bar
end module foo

[olchansk@dork gfortran_test]$ make test_gfc_trans_scalar_assign.o
/triumfcs/trshare/olchansk/gcc-tree-ssa/install/bin/gfortran -x f95 -c  -o
test_gfc_trans_scalar_assign.o -O2 -g -Wall -Waliasing -Wline-truncation
-Wsurprising -Wunused-labels -fPIC -ffixed-line-length-132
test_gfc_trans_scalar_assign.f90
Warning: Line 19 of test_gfc_trans_scalar_assign.f90 is being truncated
f951: ../../gcc/gcc/fortran/trans-expr.c:1595: gfc_trans_scalar_assign:
Assertion `lse->string_length != (tree) ((void *)0) && rse->string_length !=
(tree) ((void *)0)' failed.
test_gfc_trans_scalar_assign.f90: In function `bar':
test_gfc_trans_scalar_assign.f90:20: internal compiler error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
make: *** [test_gfc_trans_scalar_assign.o] Error 1

K.O.

-- 
           Summary: gfortran ICE: gfc_trans_scalar_assign: Assertion `lse-
                    >string_length != blah'
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: olchansk at panix dot com
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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