xref: /llvm-project/flang/test/Semantics/OpenMP/affinity-clause.f90 (revision ea3534b385a713639953fb5dfd287af87b52bead)
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=45
2
3subroutine f00(x)
4  integer :: x(10)
5!ERROR: AFFINITY clause is not allowed on directive TASK in OpenMP v4.5, try -fopenmp-version=50
6!$omp task affinity(x)
7  x = x + 1
8!$omp end task
9end
10