13 lines · plain
1! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s2! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s3 4! CHECK: not yet implemented: Reduction modifier `task` is not supported5subroutine reduction_task()6 integer :: i7 i = 08 9 !$omp parallel reduction(task, +:i)10 i = i + 111 !$omp end parallel 12end subroutine reduction_task13