diff options
Diffstat (limited to 'gcc/fortran/match.c')
| -rw-r--r-- | gcc/fortran/match.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index d501d682475..feaa2683f27 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -1287,7 +1287,7 @@ gfc_match_assignment (void) return MATCH_NO; } - if (lvalue->symtree->n.sym->attr.protected + if (lvalue->symtree->n.sym->attr.is_protected && lvalue->symtree->n.sym->attr.use_assoc) { gfc_current_locus = old_loc; @@ -1347,7 +1347,7 @@ gfc_match_pointer_assignment (void) if (m != MATCH_YES) goto cleanup; - if (lvalue->symtree->n.sym->attr.protected + if (lvalue->symtree->n.sym->attr.is_protected && lvalue->symtree->n.sym->attr.use_assoc) { gfc_error ("Assigning to a PROTECTED pointer at %C"); |