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