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