[Bug fortran/54997] -Wunused-function gives false warnings for procedures passed as actual argument

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54997

--- Comment #3 from janus at gcc dot gnu.org 2012-10-20 18:45:05 UTC ---
(In reply to comment #2)
> Also an "Unused dummy argument" warning is missing here ...

This is fixed by the following patch:

Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c    (revision 192619)
+++ gcc/fortran/decl.c    (working copy)
@@ -4941,8 +4941,6 @@ match_procedure_decl (void)

     }

-      gfc_set_sym_referenced (sym);
-
       if (gfc_match_eos () == MATCH_YES)
     return MATCH_YES;
       if (gfc_match_char (',') != MATCH_YES)