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