1! { dg-do compile } 2! { dg-require-effective-target vect_double } 3 4subroutine 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 12end subroutine foo 13 14! { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { target { vect_unpack && vect_intfloat_cvt } } } } 15 16