flang/test/Semantics/OpenMP/reduction05.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.15.3.6 Reduction Clause
   4
   5 program omp_reduction
   6
   7   integer :: i
   8   integer :: k = 10
   9   integer :: a(10),b(10,10,10)
  10
  11   !ERROR: 'a' in REDUCTION clause is a zero size array section
  12   !$omp parallel do reduction(+:a(1:0:2))
  13   do i = 1, 10
  14     k = k + 1
  15   end do
  16   !$omp end parallel do
  17
  18   !ERROR: 'a' in REDUCTION clause is a zero size array section
  19   !$omp parallel do reduction(+:a(1:0))
  20   do i = 1, 10
  21     k = k + 1
  22   end do
  23   !$omp end parallel do
  24
  25   !ERROR: 'b' in REDUCTION clause is a zero size array section
  26   !$omp parallel do reduction(+:b(1:6,5,1:0))
  27   do i = 1, 10
  28     k = k + 1
  29   end do
  30   !$omp end parallel do
  31
  32   !ERROR: 'b' in REDUCTION clause is a zero size array section
  33   !$omp parallel do reduction(+:b(1:6,1:0:5,1:10))
  34   do i = 1, 10
  35     k = k + 1
  36   end do
  37   !$omp end parallel do
  38 end program omp_reduction