[Bug fortran/40822] [4.5 Regression] Internal compiler error when Fortran intrinsic LEN referenced before explicit declaration

[janus at gcc dot gnu dot org]

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