1! { dg-do compile }
2! { dg-options "-O2 -fdump-tree-optimized" }
3
4        subroutine test(nb,nx,r2)
5        implicit none
6        integer nb,nx,i,l
7        real*8 r2(nb,nx)
8
9
10             do i=1,nx
11                do l=1,nb
12                   r2(l,i)=0.0d0
13                enddo
14             enddo
15
16        return
17        end
18! Verify that offset of the first element is simplified
19! While we understand to combine x + ~x IVOPTs now messes things
20! up by hiding that operation in casts to unsigned.
21! { dg-final { scan-tree-dump-not "~" "optimized" { xfail *-*-* } } }
22! { dg-final { cleanup-tree-dump "optimized" } }
23