------- Comment #3 from janus at gcc dot gnu dot org 2009-07-22 12:41 -------
This was indeed caused by my r146554. Here's a patch:
Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c (revision 149848)
+++ gcc/fortran/symbol.c (working copy)
@@ -3927,6 +3927,9 @@ gfc_copy_formal_args_intr (gfc_symbol *d
formal_arg->sym->attr.flavor = FL_VARIABLE;
formal_arg->sym->attr.dummy = 1;
+ if (formal_arg->sym->ts.type == BT_CHARACTER)
+ formal_arg->sym->ts.cl = gfc_get_charlen ();
+
/* If this isn't the first arg, set up the next ptr. For the
last arg built, the formal_arg->next will never get set to
anything other than NULL. */
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |janus at gcc dot gnu dot org
|dot org |
Status|NEW |ASSIGNED
Last reconfirmed|2009-07-22 10:15:54 |2009-07-22 12:41:05
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40822
