25 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522 3subroutine bar()4 integer :: x, i5 x = 16!ERROR: REDUCTION modifier on TASKLOOP directive must be DEFAULT7!ERROR: List item x must appear in EXCLUSIVE or INCLUSIVE clause of an enclosed SCAN directive8!$omp taskloop reduction(inscan, +:x)9 do i = 1, 10010 x = x + 111 enddo12!$omp end taskloop13end14 15subroutine baz()16 integer :: x, i17 x = 118!ERROR: REDUCTION modifier on TASKLOOP directive must be DEFAULT19!$omp taskloop reduction(task, +:x)20 do i = 1, 10021 x = x + 122 enddo23!$omp end taskloop24end25