RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / dependency_9.f90
blob0ab4870afb92f1d4626635578e221f47e125ea92
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,:) .ne. 0)
9 a(j,:) = 1
10 endwhere
11 end subroutine
12 ! { dg-final { scan-tree-dump-times "malloc" 0 "original" } }