14 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2 3subroutine test_masked()4 integer :: c = 15 !ERROR: At most one FILTER clause can appear on the MASKED directive6 !$omp masked filter(1) filter(2)7 c = c + 18 !$omp end masked9 !ERROR: NOWAIT clause is not allowed on the MASKED directive10 !$omp masked nowait 11 c = c + 212 !$omp end masked13end subroutine14