diff options
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 905b243a225..37f07dfaa84 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -1446,7 +1446,8 @@ gfc_add_access (symbol_attribute *attr, gfc_access access, const char *name, locus *where) { - if (attr->access == ACCESS_UNKNOWN) + if (attr->access == ACCESS_UNKNOWN + || (attr->use_assoc && attr->access != ACCESS_PRIVATE)) { attr->access = access; return check_conflict (attr, name, where); |