diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index ef516a4..e567c98 100644 --- 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) { |