43 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522 3! Common context selector tests4 5subroutine f006 !$omp metadirective &7 !$omp & when(implementation={vendor("this")}, &8!ERROR: Repeated trait set name IMPLEMENTATION in a context specifier9 !$omp & implementation={requires(unified_shared_memory)}: nothing)10end11 12subroutine f0113 !$omp metadirective &14!ERROR: Repeated trait name ISA in a trait set15 !$omp & when(device={isa("this"), isa("that")}: nothing)16end17 18subroutine f0219 !$omp metadirective &20!ERROR: SCORE expression must be a non-negative constant integer expression21 !$omp & when(user={condition(score(-2): .true.)}: nothing)22end23 24subroutine f02_zero_score25 !$omp metadirective &26 !$omp & when(user={condition(score(0): .true.)}: nothing)27end28 29subroutine f03(x)30 integer :: x31 !$omp metadirective &32!ERROR: SCORE expression must be a non-negative constant integer expression33 !$omp & when(user={condition(score(x): .true.)}: nothing)34end35 36subroutine f0437 !$omp metadirective &38!ERROR: Trait property should be a scalar expression39!ERROR: More invalid properties are present40 !$omp & when(target_device={device_num("device", "foo"(1))}: nothing)41end42 43