[Bug fortran/57141] Cannot change attributes of USE-associated intrinsic

[burnus at gcc dot gnu.org]

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



Tobias Burnus <burnus at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

                 CC|                            |burnus at gcc dot gnu.org



--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-05-03 
08:59:48 UTC ---

decl.c's gfc_match_null has:



  gfc_intrinsic_symbol (sym);



  if (sym->attr.proc != PROC_INTRINSIC

      && (!gfc_add_procedure(&sym->attr, PROC_INTRINSIC, sym->name, NULL)

          || !gfc_add_function (&sym->attr, sym->name, NULL)))

    return MATCH_ERROR;



Failing is the call to gfc_add_procedure.



Here,

  attr.proc = PROC_UNKNOWN

  attr.intrinsic = 1

  attr.use_assoc = 1

  attr.if_source = IFSRC_DECL





Possible patch?



--- a/gcc/fortran/decl.c

+++ b/gcc/fortran/decl.c

@@ -1705,2 +1705,3 @@ gfc_match_null (gfc_expr **result)

   if (sym->attr.proc != PROC_INTRINSIC

+      && !(sym->attr.use_assoc && sym->attr.intrinsic)

       && (!gfc_add_procedure(&sym->attr, PROC_INTRINSIC, sym->name, NULL)