fe8b323f59
This implements checks of the validity of context set selectors and trait selectors, plus the types of trait properties. Clause properties are also validated, but not name or extension properties. --------- Co-authored-by: Tom Eccles <tom.eccles@arm.com>
34 lines
883 B
Fortran
34 lines
883 B
Fortran
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52
|
|
|
|
! The CONSTRUCT trait set
|
|
|
|
subroutine f00
|
|
!$omp metadirective &
|
|
!ERROR: CONDITION is not a valid trait for CONSTRUCT trait set
|
|
!$omp & when(construct={condition(.true.)}: nothing)
|
|
end
|
|
|
|
subroutine f01
|
|
!$omp metadirective &
|
|
!ERROR: Directive-name traits cannot have properties
|
|
!$omp & when(construct={parallel(nowait), simd}: nothing)
|
|
end
|
|
|
|
subroutine f02
|
|
!$omp metadirective &
|
|
!ERROR: SIMD trait requires a clause that is allowed on the DECLARE SIMD directive
|
|
!$omp & when(construct={simd(nowait)}: nothing)
|
|
end
|
|
|
|
subroutine f03
|
|
!$omp metadirective &
|
|
!ERROR: Extension traits are not valid for CONSTRUCT trait set
|
|
!$omp & when(construct={fred(1)}: nothing)
|
|
end
|
|
|
|
subroutine f04
|
|
!$omp metadirective &
|
|
!This is ok
|
|
!$omp & when(construct={parallel, simd(simdlen(32), notinbranch)}: nothing)
|
|
end
|