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