OSDN Git Service

adf01379d40ab4109be99b40ca93c302ec85fea1
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / vect / vect-7.f90
1 ! { dg-do compile } 
2 ! { dg-require-effective-target vect_double } 
3
4 subroutine foo (x,nnd)
5   dimension x(nnd) 
6   integer i
7   
8   do i=1,nnd
9     x(i) = 1.d0 + (1.d0*i)/nnd
10   end do
11
12 end subroutine foo 
13
14 ! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target vect_unpack } } } 
15 ! { dg-final { cleanup-tree-dump "vect" } } 
16