1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=45
subroutine f00(x)
integer :: x(10)
!ERROR: Reference to 'x' must be a contiguous object
!$omp target update from(x(1:10:2))
end
subroutine f01(x)
integer :: x(10)
!WARNING: 'iterator' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
!$omp target update from(iterator(i = 1:5): x(i))
end
subroutine f02(x)
integer :: x(10)
!WARNING: 'expectation' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
!WARNING: 'iterator' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
!$omp target update from(present, iterator(i = 1:5): x(i))
end
subroutine f03(x)
integer :: x(10)
!WARNING: 'expectation' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
!WARNING: 'expectation' modifier is not supported in OpenMP v4.5, try -fopenmp-version=51
!ERROR: 'expectation' modifier cannot occur multiple times
!$omp target update from(present, present: x)
end
subroutine f04
!ERROR: 'f04' must be a variable
!$omp target update from(f04)
end
|
