PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / reassoc_6.f
blob724886f76aa9cc8e9a00af3e8721a335b74060d6
1 ! { dg-do compile }
2 ! { dg-options "-O2 -fdump-tree-optimized" }
4 subroutine test(nb,nx,r2)
5 implicit none
6 integer nb,nx,i,l
7 real*8 r2(nb,nx)
10 do i=1,nx
11 do l=1,nb
12 r2(l,i)=0.0d0
13 enddo
14 enddo
16 return
17 end
18 ! Verify that offset of the first element is simplified
19 ! { dg-final { scan-tree-dump-not "~" "optimized" } }