procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/88073 (Internal compiler error compiling WHERE construct with -O or -O2)

Browse source 
2018-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/88073
	* frontend-passes.c (combine_array_constructor): Do not do
	anything if in a WHERE statement.

2018-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/88073
	* gfortran.dg/where_7.f90: New test.

From-SVN: r266251
This commit is contained in:
Thomas Koenig 2018-11-18 17:40:23 +00:00
parent 9515381d1c
commit cb40e8071e
4 changed files with 40 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 @@
2018-11-18 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/88073
* frontend-passes.c (combine_array_constructor): Do not do
anything if in a WHERE statement.
2018-11-18 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/70260

4
gcc/fortran/frontend-passes.c
View file

@ -1773,6 +1773,10 @@ combine_array_constructor (gfc_expr *e)
if (iterator_level > 0)
return false;
/* WHERE also doesn't work. */
if (in_where > 0)
return false;
op1 = e->value.op.op1;
op2 = e->value.op.op2;

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2018-11-18 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/88073
* gfortran.dg/where_7.f90: New test.
2018-11-18 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/70260

25
gcc/testsuite/gfortran.dg/where_7.f90 Normal file
View file

@ -0,0 +1,25 @@
! { dg-do compile }
! { dg-options "-ffrontend-optimize" }
! PR fortran/88073 - this used to ICE with front-end optimization
! Original test case by 'mecej4'
Subroutine tfu (n, x, f)
Implicit None
Integer, Parameter :: double = Kind (0.d0)
Integer, Intent (In) :: n
Real (double), Intent (Out) :: f
Real (double), Intent (In) :: x (n)
Integer :: j
Logical, Dimension(n) :: l1v, l2v, l3v
!
l3v = .False.
l2v = .False.
l1v = (/ (j, j=1, n) /) == 1
Where ( .Not. (l1v))
l2v = (/ (j, j=1, n) /) == n
End Where
Where ( .Not. l1v)
l3v = .Not. l2v
End Where
f = sum (x(1:n), mask=l3v)
Return
end subroutine tfu