1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 2 3subroutine test_masked() 4 integer :: c = 1 5 !ERROR: At most one FILTER clause can appear on the MASKED directive 6 !$omp masked filter(1) filter(2) 7 c = c + 1 8 !$omp end masked 9 !ERROR: NOWAIT clause is not allowed on the MASKED directive 10 !$omp masked nowait 11 c = c + 2 12 !$omp end masked 13end subroutine 14