mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-12 07:20:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/77460 (ICE when summing an overflowing array)

Browse Source 
2016-09-04  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77460
	* simplify.c (simplify_transformation_to_scalar):  On error, result
	may be NULL, simply return.

2016-09-04  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77460
	* gfortran.dg/pr77460.f90: New test.

From-SVN: r239979
This commit is contained in:
Steven G. Kargl 2016-09-04 18:43:40 +00:00
parent 5961d13d27
commit e85921ee9f
4 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2016-09-04 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77460
* simplify.c (simplify_transformation_to_scalar): On error, result
may be NULL, simply return.
2016-08-31 Jakub Jelinek <jakub@redhat.com>
PR fortran/77352

2
gcc/fortran/simplify.c
View File

@ -489,6 +489,8 @@ simplify_transformation_to_scalar (gfc_expr *result, gfc_expr *array, gfc_expr *
}
result = op (result, gfc_copy_expr (a));
if (!result)
return result;
}
return result;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-09-04 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77460
* gfortran.dg/pr77460.f90: New test.
2016-09-03 Jakub Jelinek <jakub@redhat.com>
PR c/65467

7
gcc/testsuite/gfortran.dg/pr77460.f90 Normal file
View File

@ -0,0 +1,7 @@
! { dg-do compile }
double precision, parameter :: x = huge(1d0)
print*, sum((/x,-x/))
print*, sum((/x,x,-x,-x/)) ! { dg-error "overflow" }
print*, sum((/x,-x,1d0/))
print*, sum((/1d0,x,-x/))
end