[Patch, Fortran] PR 69495: unused-label warning does not tell which flag triggered it

[Manfred Schwarb]

Am 02.02.2016 um 21:26 schrieb Janus Weil:
> Hi all,
>
> here is a diagnostics patch, which makes sure that the responsible
> flag is printed in several warning messages (for which this was still
> missing).
>
> The  only case that I'm not completely sure about is the hunk in
> intrinsic.c. In particular I was not able to trigger this warning and
> found no occurrence of it in the testsuite. Could someone check if the
> flag that I'm using there is correct, please?
>
> As a small extra the patch also mentions the -Wpedantic flag in the
> gfortran documentation.
>
> It regtests cleanly on x86_64-linux-gnu. Ok for trunk?
>
> Cheers,
> Janus
>

    if (source_size < result_size)
-    gfc_warning (0, "Intrinsic TRANSFER at %L has partly undefined result: "
-		 "source size %ld < result size %ld", &source->where,
-		 (long) source_size, (long) result_size);
+    gfc_warning (OPT_Wsurprising, "Intrinsic TRANSFER at %L has partly "
+		 "undefined result: source size %ld < result size %ld",
+		 &source->where, (long) source_size, (long) result_size);
  

Breaking apart of these strings will probably hamper translation.

Cheers,
Manfred