re PR fortran/43899 (Wrong unused-variable warning with NAMELISTs)

2010-11-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/43899
	* trans-decl.c (generate_local_decl): Do not generate unused warning
	for variables in namelists.

From-SVN: r166461

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 86aad78..22cf7d8 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/43899
+       * trans-decl.c (generate_local_decl): Do not generate unused warning
+       for variables in namelists.
+
 2010-11-08  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/46344

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 8e5c294..a94556f 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -4017,9 +4017,10 @@ generate_local_decl (gfc_symbol * sym)
        }
 
       /* Warn for unused variables, but not if they're inside a common
-        block or are use-associated.  */
+        block, a namelist, or are use-associated.  */
       else if (warn_unused_variable
-              && !(sym->attr.in_common || sym->attr.use_assoc || sym->mark))
+              && !(sym->attr.in_common || sym->attr.use_assoc || sym->mark
+                   || sym->attr.in_namelist))
        gfc_warning ("Unused variable '%s' declared at %L", sym->name,
                     &sym->declared_at);