Commit 33c0c5e9 by Daniel Franke Committed by Daniel Franke

re PR fortran/31129 (No warning on unused parameters)

gcc/fortran:
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.

From-SVN: r126486
parent 8b4c775b
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> 2007-07-08 Daniel Franke <franke.daniel@gmail.com>
PR fortran/29876 PR fortran/29876
......
...@@ -3035,6 +3035,14 @@ generate_local_decl (gfc_symbol * sym) ...@@ -3035,6 +3035,14 @@ generate_local_decl (gfc_symbol * sym)
if (sym->attr.dummy && sym->backend_decl != NULL_TREE) if (sym->attr.dummy && sym->backend_decl != NULL_TREE)
TREE_NO_WARNING(sym->backend_decl) = 1; 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) 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> 2007-07-09 Uros Bizjak <ubizjak@gmail.com>
PR tree-optimization/32681 PR tree-optimization/32681
! { 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment