[Bug fortran/29713] ICE [regression, trunk, 4.2]: in gfc_set_constant_character_len decl.c:762

[fxcoudert at gcc dot gnu dot org]

------- Comment #3 from fxcoudert at gcc dot gnu dot org  2006-11-04 18:09 
-------
Fixed by:

Index: gcc/fortran/expr.c
===================================================================
--- gcc/fortran/expr.c  (revision 118455)
+++ gcc/fortran/expr.c  (working copy)
@@ -1436,7 +1436,7 @@
          gfc_extract_int (p->ref->u.ss.start, &start);
          start--;  /* Convert from one-based to zero-based.  */
          gfc_extract_int (p->ref->u.ss.end, &end);
-         s = gfc_getmem (end - start + 1);
+         s = gfc_getmem (end - start + 2);
          memcpy (s, p->value.character.string + start, end - start);
          s[end-start+1] = '\0';  /* TODO: C-style string for debugging.  */
          gfc_free (p->value.character.string);


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |fxcoudert at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2006-11-04 17:36:12         |2006-11-04 18:09:37
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29713