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

   1 ! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s -fopenmp-version=50 2>&1 | FileCheck %s
   2 ! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s -fopenmp-version=50 2>&1 | FileCheck %s
   3
   4 ! CHECK: not yet implemented: Taskloop construct
   5 subroutine omp_taskloop
   6   integer :: res, i
   7   !$omp taskloop
   8   do i = 1, 10
   9      res = res + 1
  10   end do
  11   !$omp end taskloop
  12 end subroutine omp_taskloop
  13