2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / dependency_8.f90
blob949edf2d2f6531199fa7b18be28430c58ce1f7e1
1 ! { dg-do compile }
2 ! { dg-options "-O2 -fdump-tree-original" }
3 subroutine foo(a,i,j)
4 integer, dimension (4,4) :: a
5 integer :: i
6 integer :: j
8 where (a(i,1:3) .ne. 0)
9 a(j,2:4) = 1
10 endwhere
11 end subroutine
12 ! { dg-final { scan-tree-dump-times "temp" 3 "original" } }