gcc/testsuite/gfortran.dg/do_concurrent_7.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-fdump-tree-original" }
   3 ! PR fortran/113305
   4
   5 program dc
   6   implicit none
   7   real :: a(12), b(12), c(16,8), d(16,8)
   8   integer :: i, j
   9   call random_number(b)
  10 !GCC$ ivdep
  11 !GCC$ vector
  12   do concurrent (i=1:12)
  13      a(i) = 2*b(i)
  14   end do
  15   c = b(1)
  16   d = a(2)
  17 !GCC$ novector
  18 !GCC$ unroll 4
  19   do concurrent (i=1:16:2,j=1:8:2)
  20      d(i,j) = 3*c(i,j)
  21   end do
  22 end program
  23
  24 ! { dg-final { scan-tree-dump "ANNOTATE_EXPR .* ivdep>, vector" "original" } }
  25 ! { dg-final { scan-tree-dump "ANNOTATE_EXPR .* ivdep>, no-vector" "original" } }
  26 ! { dg-final { scan-tree-dump "ANNOTATE_EXPR .* ivdep>, unroll 4>, no-vector" "original" } }