34 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522 3! The IMPLEMENTATION trait set4 5subroutine f006 !$omp metadirective &7!ERROR: Trait property should be a clause8 !$omp & when(implementation={atomic_default_mem_order(0)}: nothing)9end10 11subroutine f0112 !$omp metadirective &13!ERROR: ATOMIC_DEFAULT_MEM_ORDER trait requires a clause from the memory-order clause set14 !$omp & when(implementation={atomic_default_mem_order(nowait)}: nothing)15end16 17subroutine f0218 !$omp metadirective &19!ERROR: REQUIRES trait requires a clause from the requirement clause set20!ERROR: Invalid clause specification for SHARED21 !$omp & when(implementation={requires(shared)}: nothing)22end23 24subroutine f0325 !$omp metadirective &26!This is ok27 !$omp & when(implementation={ &28 !$omp & atomic_default_mem_order(relaxed), &29 !$omp & extension("foo"), &30 !$omp & requires(unified_address),31 !$omp & vendor(some_vendor) &32 !$omp & }: nothing)33end34