[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)