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

re PR fortran/68486 (187.facerec in SPEC CPU 2000 failed to build)

Browse Source 
2015-11-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68486
	* simplify.c (gfc_simplify_cshift):  Add EXPR_OP to mix.

2015-11-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68486
	* gfortran.dg/simplify_cshift_2.f90: New test.

From-SVN: r230726
This commit is contained in:
Steven G. Kargl 2015-11-22 19:41:20 +00:00
parent cc9e07a6bc
commit 9b22c1b69a
4 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2015-11-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/68486
* simplify.c (gfc_simplify_cshift): Add EXPR_OP to mix.
2015-11-22 James Norris <jnorris@codesourcery.com>
Steven G. Kargl <kargl@gcc.gnu.org>

1
gcc/fortran/simplify.c
View File

@ -1811,6 +1811,7 @@ gfc_simplify_cshift (gfc_expr *array, gfc_expr *shift, gfc_expr *dim)
{
case EXPR_VARIABLE:
case EXPR_ARRAY:
case EXPR_OP:
a = gfc_copy_expr (array);
gfc_simplify_expr (a, 0);
if (!is_constant_array_expr (a))

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-11-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/68486
* gfortran.dg/simplify_cshift_2.f90: New test.
2015-11-22 James Norris <jnorris@codesourcery.com>
Cesar Philippidis <cesar@codesourcery.com>

10
gcc/testsuite/gfortran.dg/simplify_cshift_2.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
subroutine foo(u, n, fl)
implicit none
integer n
real u(5, n), fl(5,n), wl(5,n)
real c
c = 1
wl = u
fl = cshift(c * wl, 1, 2)
end subroutine foo