gcc/testsuite/gfortran.dg/reassoc_6.f

   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 ! { dg-final { scan-tree-dump-not "~" "optimized" } }
  20 ! { dg-final { cleanup-tree-dump "optimized" } }