------- 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

Reply via email to