flang/test/Lower/OpenMP/Todo/ordered.f90

   1 !RUN: %not_todo_cmd bbc -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s
   2 !RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s
   3
   4 !CHECK: not yet implemented: OMPD_ordered
   5 subroutine f00(x)
   6   integer :: a(10)
   7
   8   do i = 1, 10
   9     !$omp do ordered(3)
  10     do j = 1, 10
  11       do k = 1, 10
  12         do m = 1, 10
  13           !$omp ordered doacross(sink: m+1, k+0, j-2)
  14           a(i) = i
  15         enddo
  16       enddo
  17     enddo
  18     !$omp end do
  19   enddo
  20 end