1C { dg-do compile } 2C { dg-additional-options "-fvect-cost-model=dynamic -fno-ipa-icf" } 3 subroutine test2(x,y) 4 real x(4),y(4) 5 beta=3.141593 6 do i=1,4 7 y(i)=y(i)+beta*x(i) 8 end do 9 end 10 11 subroutine test3(x,y) 12 real x(4),y(4) 13 beta=3.141593 14 y=y+beta*x 15 end 16C { dg-final { scan-tree-dump-times "vectorized 1 loops" 2 "vect" { target { vect_hw_misalign } } } } 17