flang/test/Semantics/OpenMP/do03.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   3 ! OpenMP Version 4.5
   4 ! 2.7.1 Loop Construct
   5 ! Semantic error for correct test case
   6
   7 program omp_do
   8   integer i, j, k
   9   integer :: a(10), b(10)
  10   a = 10
  11   j = 0
  12
  13   !$omp parallel
  14     !$omp do linear(j:1)
  15     do i = 1, 10
  16       j = j + 1
  17       b(i) = a(i) * 2.0
  18     end do
  19     !$omp end do
  20   !$omp end parallel
  21
  22   print *, j
  23   print *, b
  24
  25 end program omp_do