------- Comment #4 from pault at gcc dot gnu dot org  2009-08-04 11:14 -------
I am going to apply this, together with testcase, as obvious:

Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c  (revision 150404)
+++ gcc/fortran/decl.c  (working copy)
@@ -1256,6 +1256,9 @@
       if (sym->ts.type == BT_CHARACTER && sym->ts.cl)
        {
          /* Update symbol character length according initializer.  */
+         if (gfc_check_assign_symbol (sym, init) == FAILURE)
+           return FAILURE;
+
          if (sym->ts.cl->length == NULL)
            {
              int clen;

Cheers

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2009-08-03 17:01:40         |2009-08-04 11:14:55
               date|                            |


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

Reply via email to