21 lines
485 B
Fortran
21 lines
485 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-O2 -fdump-tree-optimized" }
|
|
|
|
subroutine test(nb,nx,r2)
|
|
implicit none
|
|
integer nb,nx,i,l
|
|
real*8 r2(nb,nx)
|
|
|
|
|
|
do i=1,nx
|
|
do l=1,nb
|
|
r2(l,i)=0.0d0
|
|
enddo
|
|
enddo
|
|
|
|
return
|
|
end
|
|
! Verify that offset of the first element is simplified
|
|
! { dg-final { scan-tree-dump-not "~" "optimized" } }
|
|
! { dg-final { cleanup-tree-dump "optimized" } }
|