! { dg-do compile }
! { dg-require-effective-target vect_float }
! { dg-additional-options "-fdump-tree-slp2-details" }
      subroutine saxpy(alpha,x,y)
      real x(4),y(4),alpha
      y(1)=y(1)+alpha*x(1)
      y(2)=y(2)+alpha*x(2)
      y(3)=y(3)+alpha*x(3)
      y(4)=y(4)+alpha*x(4)
      end
! { dg-final { scan-tree-dump "optimized: basic block" "slp2" } }