1 ! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
2 ! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
4 ! CHECK: not yet implemented: Reduction modifiers are not supported
5 subroutine reduction_task()
9 !$omp parallel reduction(task, +:i)
12 end subroutine reduction_task