[Bug fortran/39861] [4.5 Regression] ICE with INTRINSIC in module: write_symbol(): bad module symbol

[janus at gcc dot gnu dot org]

------- Comment #3 from janus at gcc dot gnu dot org  2009-04-23 12:24 -------

> > write_symbol(): bad module symbol 'x'
> 
> Where does the symbol 'x' come from?

The 'x' here apparently is the formal argument of the sqrt() function!

I think Dominique was right in suspecting my r146554, which had the effect that
formal arguments from intrinsic functions are now not only kept in the isym,
but are also copied to the gfc_symbol of the intrinsic function (see
'resolve_intrinsic').

The problem seems to be that for those formal args copied from isym the flavor
is not set:

  if (sym->attr.flavor == FL_UNKNOWN || sym->attr.flavor == FL_LABEL)
    gfc_internal_error ("write_symbol(): bad module symbol '%s'", sym->name);

I will take care of this soon. Thanks for the report.


-- 

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-04-23 09:30:47         |2009-04-23 12:24:16
               date|                            |


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