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