1! { dg-do compile } 2! { dg-require-effective-target vect_double } 3 subroutine shell(nx,ny,nz,q,dq) 4 implicit none 5 integer i,j,k,l,nx,ny,nz 6 real*8 q(5,nx,ny),dq(5,nx,ny) 7 do j=1,ny 8 do i=1,nx 9 do l=1,5 10 q(l,i,j)=q(l,i,j)+dq(l,i,j) 11 enddo 12 enddo 13 enddo 14 return 15 end 16! { dg-final { scan-tree-dump "vectorized 1 loops" "vect" { xfail { vect_no_align && { ! vect_hw_misalign } } } } } 17