! { dg-do compile } | |
! { dg-require-effective-target vect_double } | |
subroutine shell(nx,ny,nz,q,dq) | |
implicit none | |
integer i,j,k,l,nx,ny,nz | |
real*8 q(5,nx,ny),dq(5,nx,ny) | |
do j=1,ny | |
do i=1,nx | |
do l=1,5 | |
q(l,i,j)=q(l,i,j)+dq(l,i,j) | |
enddo | |
enddo | |
enddo | |
return | |
end | |
! { dg-final { scan-tree-dump "vectorized 1 loops" "vect" { xfail { vect_no_align && { ! vect_hw_misalign } } } } } |