diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2013-07-14 19:16:56 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2013-07-14 19:16:56 +0000 |
| commit | 38945cfe6a7951407845c96c136a47ee4342fdec (patch) | |
| tree | 2fa7f4146658fc99be43116101f69b0b8ed81006 /gcc/fortran | |
| parent | a960e80813e7e08410f5fb94368c63f276039b42 (diff) | |
| download | gcc-38945cfe6a7951407845c96c136a47ee4342fdec.zip gcc-38945cfe6a7951407845c96c136a47ee4342fdec.tar.gz gcc-38945cfe6a7951407845c96c136a47ee4342fdec.tar.bz2 | |
re PR fortran/52669 (No warning in unused private variable in modules)
2013-07-14 Thomas Koenig <tkoenig@gcc.gnu.org>
Tobias Burnus <burnus@gcc.gnu.org>
PR fortran/52669
* trans-decl.c (gfc_finish_var_decl): Move setting of
PRIVATE for a module variable if the module has a private
default or -fmodule-private is given to...
(gfc_create_module_variable): here. Optionally
warn about private module variable which is not used.
2013-07-14 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/52669
* fortran.dg/module_variable_1.f90: New test.
* fortran.dg/module_variable_2.f90: New test.
Co-Authored-By: Tobias Burnus <burnus@gcc.gnu.org>
From-SVN: r200950
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 10 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 18 |
2 files changed, 22 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 283521a..35c884c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,13 @@ +2013-07-14 Thomas Koenig <tkoenig@gcc.gnu.org> + Tobias Burnus <burnus@gcc.gnu.org> + + PR fortran/52669 + * trans-decl.c (gfc_finish_var_decl): Move setting of + PRIVATE for a module variable if the module has a private + default or -fmodule-private is given to... + (gfc_create_module_variable): here. Optionally + warn about private module variable which is not used. + 2013-07-08 Tobias Burnus <burnus@net-b.de> PR fortran/57834 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 6a8d98c..2224830 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -559,12 +559,6 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) { /* TODO: Don't set sym->module for result or dummy variables. */ gcc_assert (current_function_decl == NULL_TREE || sym->result == sym); - /* This is the declaration of a module variable. */ - if (sym->attr.access == ACCESS_UNKNOWN - && (sym->ns->default_access == ACCESS_PRIVATE - || (sym->ns->default_access == ACCESS_UNKNOWN - && gfc_option.flag_module_private))) - sym->attr.access = ACCESS_PRIVATE; if (sym->attr.access != ACCESS_PRIVATE || sym->attr.public_used) TREE_PUBLIC (decl) = 1; @@ -4212,6 +4206,18 @@ gfc_create_module_variable (gfc_symbol * sym) internal_error ("backend decl for module variable %s already exists", sym->name); + if (sym->module && !sym->attr.result && !sym->attr.dummy + && (sym->attr.access == ACCESS_UNKNOWN + && (sym->ns->default_access == ACCESS_PRIVATE + || (sym->ns->default_access == ACCESS_UNKNOWN + && gfc_option.flag_module_private)))) + sym->attr.access = ACCESS_PRIVATE; + + if (warn_unused_variable && !sym->attr.referenced + && sym->attr.access == ACCESS_PRIVATE) + gfc_warning ("Unused PRIVATE module variable '%s' declared at %L", + sym->name, &sym->declared_at); + /* We always want module variables to be created. */ sym->attr.referenced = 1; /* Create the decl. */ |