git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/67219 (Incorrect conversion warning) 

2016-10-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/67219
	* arith.c (gfc_int2real):  Change gfc_warning_now
	to gfc_warning.
	* primary.c (match_complex_constant):  If there
	is no comma, throw away any warning which might have
	been issued by gfc_int2real.

2016-10-30  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/67219
	* gfortran.dg/pr67219.f90:  New test.

From-SVN: r241689
This commit is contained in:
Thomas Koenig 2016-10-30 17:48:27 +00:00
parent e9d33505a0
commit 396e56d2da
5 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/fortran/ChangeLog
View File

@ -1,3 +1,12 @@
2016-10-30 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/67219
* arith.c (gfc_int2real): Change gfc_warning_now
to gfc_warning.
* primary.c (match_complex_constant): If there
is no comma, throw away any warning which might have
been issued by gfc_int2real.
2016-10-28 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/71891

10
gcc/fortran/arith.c
View File

@ -2072,11 +2072,11 @@ gfc_int2real (gfc_expr *src, int kind)
if (warn_conversion
&& wprecision_int_real (src->value.integer, result->value.real))
gfc_warning_now (OPT_Wconversion, "Change of value in conversion "
"from %qs to %qs at %L",
gfc_typename (&src->ts),
gfc_typename (&result->ts),
&src->where);
gfc_warning (OPT_Wconversion, "Change of value in conversion "
"from %qs to %qs at %L",
gfc_typename (&src->ts),
gfc_typename (&result->ts),
&src->where);
return result;
}

4
gcc/fortran/primary.c
View File

@ -1353,6 +1353,10 @@ match_complex_constant (gfc_expr **result)
if (gfc_match_char (',') == MATCH_NO)
{
/* It is possible that gfc_int2real issued a warning when
converting an integer to real. Throw this away here. */
gfc_clear_warning ();
gfc_pop_error (&old_error);
m = MATCH_NO;
goto cleanup;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-10-30 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/67219
* gfortran.dg/pr67219.f90: New test.
2016-10-29 Jakub Jelinek <jakub@redhat.com>
PR rtl-optimization/77919

8
gcc/testsuite/gfortran.dg/pr67219.f90 Normal file
View File

@ -0,0 +1,8 @@
! { dg-do compile }
! PR 67149 - this used to throw a spurious error.
function foo(bar)
integer(8) :: foo
integer(4), intent(in) :: bar
integer(4), parameter :: huge_4 = huge(0_4)
foo = (huge_4 - int(bar,kind=8))
end function