This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch, fortran] PR31129 - warning on unused parameters


Thanks Thomas, I try again ...

On -Wunused/-Wall , emit a warning if an unused parameters is found.

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-09 Daniel Franke <franke.daniel@gmail.com>

        PR fortran/31129
        * gfortran.dg/parameter_unused.f90: New test.

Regtested on i686-pc-linux-gnu. Ok for trunk?

Regards
   Daniel
Index: trans-decl.c
===================================================================
--- trans-decl.c	(revision 126478)
+++ trans-decl.c	(working copy)
@@ -3035,6 +3035,14 @@
       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)
     {
Index: /home/daniel/svn/gcc/gcc/testsuite/gfortran.dg/parameter_unused.f90
===================================================================
--- /home/daniel/svn/gcc/gcc/testsuite/gfortran.dg/parameter_unused.f90	(revision 0)
+++ /home/daniel/svn/gcc/gcc/testsuite/gfortran.dg/parameter_unused.f90	(revision 0)
@@ -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
+

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]