------- Comment #2 from mikael at gcc dot gnu dot org 2010-09-06 22:20 ------- Index: trans-intrinsic.c =================================================================== --- trans-intrinsic.c (r��vision 163809) +++ trans-intrinsic.c (copie de travail) @@ -4612,7 +4612,7 @@
se->expr = info->descriptor; if (expr->ts.type == BT_CHARACTER) - se->string_length = dest_word_len; + se->string_length = fold_convert (gfc_charlen_type_node, dest_word_len); return; -- mikael at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |mikael at gcc dot gnu dot |dot org |org Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2010-09-06 22:20:16 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45564