1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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 } } } } }
|