2914a488c7
OpenMP 6.0 has changed the modifiers on the MAP clause. Previous patch has introduced parsing support for them. This patch introduces processing of the new forms in semantic checks and in lowering. This only applies to existing modifiers, which were updated in the 6.0 spec. Any of the newly introduced modifiers (SELF and REF) are ignored.
36 lines
879 B
Fortran
36 lines
879 B
Fortran
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52 -Werror
|
|
|
|
subroutine f00(x)
|
|
integer :: x
|
|
!WARNING: 'self-modifier' modifier is not supported in OpenMP v5.2, try -fopenmp-version=60
|
|
!$omp target map(self: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f01(x)
|
|
integer, pointer :: x
|
|
!WARNING: 'ref-modifier' modifier is not supported in OpenMP v5.2, try -fopenmp-version=60
|
|
!$omp target map(ref_ptr: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f02(x)
|
|
integer, pointer :: x
|
|
!WARNING: 'ref-modifier' modifier is not supported in OpenMP v5.2, try -fopenmp-version=60
|
|
!$omp target map(ref_ptee: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f03(x)
|
|
integer, pointer :: x
|
|
!WARNING: 'ref-modifier' modifier is not supported in OpenMP v5.2, try -fopenmp-version=60
|
|
!$omp target map(ref_ptr_ptee: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
|