[Bug fortran/87711] ICE in gfc_trans_transfer, at fortran/trans-io.c:2676

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
corallary:

program p
   character(3) :: c(2) = ['abc', 'xyz']
   integer n(2)
   n = len_trim(c,4)
   print *, n
end

% gfcx -o z a.f90
a.f90:4:0:

    4 |    n = len_trim(c,4)
      | 
internal compiler error: in gfc_trans_assignment_1, at
fortran/trans-expr.c:11065
0x5c80b6 gfc_trans_assignment_1
        ../../gccx/gcc/fortran/trans-expr.c:11065
0x83b122 trans_code
        ../../gccx/gcc/fortran/trans.c:1852
0x86a8d9 gfc_generate_function_code(gfc_namespace*)
        ../../gccx/gcc/fortran/trans-decl.c:6798
0x7e53e6 translate_all_program_units
        ../../gccx/gcc/fortran/parse.c:6276
0x7e53e6 gfc_parse_file()
        ../../gccx/gcc/fortran/parse.c:6515
0x838008 gfc_be_parse_file
        ../../gccx/gcc/fortran/f95-lang.c:208
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.

Without kind type parameter 

program p
   character(3) :: c(2) = ['abc', 'xyz']
   integer n(2)
   n = len_trim(c)
   print *, n
end

% gfcx -o z a.f90 && ./z
           3           3