1! { dg-do compile }
2! { dg-additional-options "-fdump-tree-original" }
3
4program main
5  real, dimension(100) :: a,b
6  call random_number(a)
7  do concurrent (i=1:100)
8     b(i) = a(i)*a(i)
9  end do
10  print *,sum(a)
11end program main
12
13! { dg-final { scan-tree-dump-times "ivdep" 1 "original" } }
14