flang/test/Lower/OpenMP/Todo/lastprivate-conditional.f90

   1 ! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s
   2 ! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s
   3
   4 ! CHECK: not yet implemented: lastprivate clause with CONDITIONAL modifier
   5 subroutine foo()
   6   integer :: x, i
   7   x = 1
   8   !$omp parallel do lastprivate(conditional: x)
   9   do i = 1, 100
  10     x = x + 1
  11   enddo
  12 end