flang/test/Semantics/OpenMP/omp-loop-simd01.f90

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