diff mbox

[fortran,committed] Fix PR 78221

Message ID b7ae5d98-7dac-a3c8-5e97-ce64ed039c9f@netcologne.de
State New
Headers show

Commit Message

Thomas Koenig Nov. 6, 2016, 12:29 p.m. UTC 
Hello world,

I have committed the attached patch to the regression as obvious and
simple after regression-testing.  Will commit to gcc 6 in a
few days.

Regards

	Thomas

2016-11-06  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/78221
	* arith.c (gfc_complex2real):  Change gfc_warning_now to
	gfc_warning.

2016-11-06  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/78221
	* gfortran.dg/warn_conversion_9.f90:  New test.
diff mbox

Patch

Index: arith.c
===================================================================
--- arith.c	(Revision 241747)
+++ arith.c	(Arbeitskopie)
@@ -2369,10 +2369,10 @@  gfc_complex2real (gfc_expr *src, int kind)
       /* See if we discarded an imaginary part.  */
       if (mpfr_cmp_si (mpc_imagref (src->value.complex), 0) != 0)
 	{
-	  gfc_warning_now (w, "Non-zero imaginary part discarded "
-			   "in conversion from %qs to %qs at %L",
-			   gfc_typename(&src->ts), gfc_typename (&result->ts),
-			   &src->where);
+	  gfc_warning (w, "Non-zero imaginary part discarded "
+		       "in conversion from %qs to %qs at %L",
+		       gfc_typename(&src->ts), gfc_typename (&result->ts),
+		       &src->where);
 	  did_warn = true;
 	}