2007-07-09 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31129
* trans-decl.c (generate_local_decl) Emit a warning if an unused
parameter is found.
gcc/testsuite:
2007-07-09 Daniel Franke <franke.daniel@gmail.com>
PR fortran/31129
* gfortran.dg/parameter_unused.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126486
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-07-09 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/31129
+ * trans-decl.c (generate_local_decl) Emit a warning if an unused
+ parameter is found.
+
2007-07-08 Daniel Franke <franke.daniel@gmail.com>
PR fortran/29876
if (sym->attr.dummy && sym->backend_decl != NULL_TREE)
TREE_NO_WARNING(sym->backend_decl) = 1;
}
+ else if (sym->attr.flavor == FL_PARAMETER)
+ {
+ if (warn_unused_variable
+ && !sym->attr.referenced
+ && !sym->attr.use_assoc)
+ gfc_warning ("unused parameter '%s' declared at %L", sym->name,
+ &sym->declared_at);
+ }
if (sym->attr.dummy == 1)
{
+2007-07-09 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/31129
+ * gfortran.dg/parameter_unused.f90: New test.
+
2007-07-09 Uros Bizjak <ubizjak@gmail.com>
PR tree-optimization/32681
--- /dev/null
+! { dg-do compile }
+! { dg-options "-Wunused" }
+!
+! PR fortran/31129 - No warning on unused parameters
+!
+program fred
+integer,parameter :: j = 9 ! { dg-warning "unused parameter" }
+end
+