973fa983af
Define `OmpIteratorSpecifier` and `OmpIteratorModifier` parser classes, and add parsing for them. Those are reusable between any clauses that use iterator modifiers. Add support for iterator modifiers to the MAP clause up to lowering, where a TODO message is emitted.
91 lines
2.5 KiB
Fortran
91 lines
2.5 KiB
Fortran
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=52 -Werror
|
|
|
|
subroutine f10(x)
|
|
integer :: x
|
|
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
|
|
!$omp target map(always, present close, to: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f11(x)
|
|
integer :: x
|
|
!PORTABILITY: The specification of modifiers without comma separators for the 'MAP' clause has been deprecated in OpenMP 5.2
|
|
!$omp target map(always, present, close to: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f12(x)
|
|
integer :: x
|
|
!WARNING: Duplicate map-type-modifier entry 'PRESENT' will be ignored
|
|
!$omp target map(always, present, close, present, to: x)
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f13(x)
|
|
integer :: x(10)
|
|
!ERROR: The iterator variable must be of integer type
|
|
!ERROR: Must have INTEGER type, but is REAL(4)
|
|
!$omp target map(present, iterator(real :: i = 1:10), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f14(x)
|
|
integer :: x(10)
|
|
!ERROR: The begin and end expressions in iterator range-specification are mandatory
|
|
!$omp target map(present, iterator(integer :: i = :10:1), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f15(x)
|
|
integer :: x(10)
|
|
!ERROR: The begin and end expressions in iterator range-specification are mandatory
|
|
!$omp target map(present, iterator(integer :: i = 1:), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f16(x)
|
|
integer :: x(10)
|
|
!ERROR: The begin and end expressions in iterator range-specification are mandatory
|
|
!$omp target map(present, iterator(integer :: i = 1::-1), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f17(x)
|
|
integer :: x(10)
|
|
!WARNING: The step value in the iterator range is 0
|
|
!$omp target map(present, iterator(integer :: i = 1:2:0), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f18(x)
|
|
integer :: x(10)
|
|
!WARNING: The begin value is less than the end value in iterator range-specification with a negative step
|
|
!$omp target map(present, iterator(integer :: i = 1:10:-2), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f19(x)
|
|
integer :: x(10)
|
|
!WARNING: The begin value is greater than the end value in iterator range-specification with a positive step
|
|
!$omp target map(present, iterator(integer :: i = 12:1:2), to: x(i))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|
|
|
|
subroutine f1a(x)
|
|
integer :: x(10)
|
|
!ERROR: Only one iterator-modifier is allowed
|
|
!$omp target map(present, iterator(i = 1:2), iterator(j = 1:2), to: x(i + j))
|
|
x = x + 1
|
|
!$omp end target
|
|
end
|