[Bug fortran/69495] unused-label warning does not tell which flag triggered it

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69495

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
   Last reconfirmed|                            |2016-01-26
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Simple patch:

Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c       (Revision 232803)
+++ gcc/fortran/resolve.c       (Arbeitskopie)
@@ -14890,8 +14890,8 @@
   switch (label->referenced)
     {
     case ST_LABEL_UNKNOWN:
-      gfc_warning (0, "Label %d at %L defined but not used", label->value,
-                  &label->where);
+      gfc_warning (OPT_Wunused_label, "Label %d at %L defined but not used",
+                  label->value, &label->where);
       break;

     case ST_LABEL_BAD_TARGET: