[Bug fortran/70913] New: ICE in gfc_encode_character, at fortran/target-memory.c:227

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=70913

            Bug ID: 70913
           Summary: ICE in gfc_encode_character, at
                    fortran/target-memory.c:227
           Product: gcc
           Version: 6.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

When len of string a is larger than len(c) :


$ cat z1.f90
program p
   character(3), parameter :: a = 'abc'
   type t
      character :: c
   end type
   type t2
      character :: q = transfer(t(a), 'b')
   end type
   type(t2) :: x
   print *, x
end


$ gfortran-6 z1.f90
f951: internal compiler error: in gfc_encode_character, at
fortran/target-memory.c:227