1! Fortran testcase of reduction-task-3.f90 ( PR c/91149 )
2
3module m
4 integer :: r
5end
6
7subroutine foo
8 use m
9 !$omp parallel reduction(task, +: r)
10 r = r + 1
11 !$omp end parallel
12 !$omp target parallel reduction(task, +: r)
13 r = r + 1
14 !$omp end target parallel
15end
16