OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/77942 (ICE: Floating point exception, in gfc_simplify_cshift, at fortran/simplify.c:1845)

Browse Source 
2016-10-11  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77942
	* simplify.c (gfc_simplify_cshift): Check for zero.

2016-10-11  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77942
	* gfortran.dg/pr77942.f90

From-SVN: r241008
This commit is contained in:
Steven G. Kargl 2016-10-11 21:03:04 +00:00
parent 2560723055
commit f6cf4810e9
4 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2016-10-11 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77942
* simplify.c (gfc_simplify_cshift): Check for zero.
2016-10-11 Fritz Reese <fritzoreese@gmail.com>
* iresolve.c (get_radians, get_degrees): Fix sloppy commit.
@ -5,7 +10,7 @@
2016-10-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* simplify.c (radians_f): Fix mpdr_mod.
* simplify.c (radians_f): Fix mpfr_mod.
* ireolce.c (get_degrees): Declare tmp.
2016-10-11 Fritz Reese <fritzoreese@gmail.com>

2
gcc/fortran/simplify.c
View File

@ -1989,7 +1989,7 @@ gfc_simplify_cshift (gfc_expr *array, gfc_expr *shift, gfc_expr *dim)
shft = shft < 0 ? 1 - shft : shft;
/* Special case: Shift to the original order! */
if (shft % sz == 0)
if (sz == 0 || shft % sz == 0)
return a;
result = gfc_copy_expr (a);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-10-11 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77942
* gfortran.dg/pr77942.f90
2016-10-11 Fritz Reese <fritzoreese@gmail.com>
* gfortran.dg/dec_math.f90: New testsuite.

5
gcc/testsuite/gfortran.dg/pr77942.f90 Normal file
View File

@ -0,0 +1,5 @@
! { dg-do compile }
program p
character, parameter :: c(2) = 'a'
print *, cshift(c(2:1), 1)
end