From f585b0d3b582f72c5b1c59c57acd5b9c7755e52c Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 9 Nov 2010 00:08:20 +0000
Subject: [PATCH] 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
---
gcc/fortran/ChangeLog | 6 ++++++
gcc/fortran/trans-decl.c | 5 +++--
2 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 86aad78e29ce..22cf7d808163 100644
--- 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 8e5c294b99f6..a94556fb260b 100644
--- 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);
--
GitLab