From 5dd246c1691af1c136befd4ae1ab675433b730a3 Mon Sep 17 00:00:00 2001 From: dfranke Date: Mon, 9 Jul 2007 14:56:49 +0000 Subject: [PATCH] gcc/fortran: 2007-07-09 Daniel Franke 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 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-decl.c | 8 ++++++++ gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/parameter_unused.f90 | 9 +++++++++ 4 files changed, 28 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/parameter_unused.f90 diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 63b0b7c69f3..70c4f83c0fc 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-09 Daniel Franke + + PR fortran/31129 + * trans-decl.c (generate_local_decl) Emit a warning if an unused + parameter is found. + 2007-07-08 Daniel Franke PR fortran/29876 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 09b5d9b81f5..608b779cd25 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -3035,6 +3035,14 @@ generate_local_decl (gfc_symbol * sym) 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) { diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6e616091aba..6c95f130645 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-07-09 Daniel Franke + + PR fortran/31129 + * gfortran.dg/parameter_unused.f90: New test. + 2007-07-09 Uros Bizjak PR tree-optimization/32681 diff --git a/gcc/testsuite/gfortran.dg/parameter_unused.f90 b/gcc/testsuite/gfortran.dg/parameter_unused.f90 new file mode 100644 index 00000000000..7496169361a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/parameter_unused.f90 @@ -0,0 +1,9 @@ +! { 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 + -- 2.11.0