gcc/testsuite/gfortran.dg/gomp/order-5.f90

! { dg-additional-options "-fdump-tree-original" }

subroutine f1 (a)
  integer :: a(*), i
  !$omp do order(reproducible:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp simd order ( reproducible : concurrent )
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp do simd order(reproducible :concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
end

subroutine f2 (a)
  integer :: a(*), i
  !$omp parallel do order(reproducible: concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp parallel do simd order (reproducible:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute parallel do order(reproducible:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute parallel do simd order(reproducible:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute order(reproducible:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams
    !$omp distribute parallel do order(reproducible:concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
    !$omp distribute parallel do simd order(reproducible:concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
    !$omp distribute order(reproducible:concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
  !$omp end teams
  !$omp taskloop simd order (reproducible:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
end

subroutine f3 (a)
  integer :: a(*), i
  !$omp do order(unconstrained:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp simd order ( unconstrained : concurrent )
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp do simd order(unconstrained :concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
end

subroutine f4 (a)
  integer :: a(*), i
  !$omp parallel do order(unconstrained: concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp parallel do simd order (unconstrained:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute parallel do order(unconstrained:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute parallel do simd order(unconstrained:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute order(unconstrained:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams
    !$omp distribute parallel do order(unconstrained:concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
    !$omp distribute parallel do simd order(unconstrained:concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
    !$omp distribute order(unconstrained:concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
  !$omp end teams
  !$omp taskloop simd order (unconstrained:concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
end

! { dg-final { scan-tree-dump-times "#pragma omp distribute order\\(reproducible:concurrent\\)" 6 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp distribute order\\(unconstrained:concurrent\\)" 6 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp for nowait order\\(reproducible:concurrent\\)" 6 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp for nowait order\\(unconstrained:concurrent\\)" 6 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp for order\\(reproducible:concurrent\\)" 2 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp for order\\(unconstrained:concurrent\\)" 2 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp parallel" 12 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) order\\(reproducible:concurrent\\)" 6 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) order\\(unconstrained:concurrent\\)" 6 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp taskloop" 2 "original"} }
! { dg-final { scan-tree-dump-times "#pragma omp teams" 8 "original"} }