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
