| ! { 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" } } |