diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 77ac0e9..92517d8 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3413,7 +3413,10 @@ read_module (void) /* Given an access type that is specific to an entity and the default - access, return nonzero if the entity is publicly accessible. */ + access, return nonzero if the entity is publicly accessible. If the + element is declared as PUBLIC, then it is public; if declared + PRIVATE, then private, and otherwise it is public unless the default + access in this context has been declared PRIVATE. */ bool gfc_check_access (gfc_access specific_access, gfc_access default_access) @@ -3424,12 +3427,7 @@ gfc_check_access (gfc_access specific_access, gfc_access default_access) if (specific_access == ACCESS_PRIVATE) return FALSE; - if (gfc_option.flag_module_access_private) - return default_access == ACCESS_PUBLIC; - else - return default_access != ACCESS_PRIVATE; - - return FALSE; + return default_access != ACCESS_PRIVATE; } |