1! { dg-do compile }
2! { dg-require-effective-target vect_float }
3! { dg-additional-options "-fdump-tree-slp2-details" }
4      subroutine saxpy(alpha,x,y)
5      real x(4),y(4),alpha
6      y(1)=y(1)+alpha*x(1)
7      y(2)=y(2)+alpha*x(2)
8      y(3)=y(3)+alpha*x(3)
9      y(4)=y(4)+alpha*x(4)
10      end
11! { dg-final { scan-tree-dump "basic block vectorized" "slp2" } }
12