http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46122
Tobias Burnus <burnus at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |domob at gcc dot gnu.org
--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2010-10-21
21:41:52 UTC ---
Untested patch.
Daniel, what do you think? Is such a check also needed elsewhere in
gfc_check_vardef_context (e.g. for the PURE check)?
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -4400,7 +4400,7 @@ gfc_check_vardef_context (gfc_expr* e, bool pointer,
const char* context)
}
/* PROTECTED and use-associated. */
- if (sym->attr.is_protected && sym->attr.use_assoc)
+ if (sym->attr.is_protected && sym->attr.use_assoc && check_intentin)
{
if (pointer && is_pointer)
{
