blob: 6f5e8dfef217bcc715544dcae603e0ad649c3b8e (
plain)
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
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! 2.15.4.1 copyin Clause
! A list item that appears in a copyin clause must be threadprivate
program omp_copyin
integer :: i
integer, save :: j, k
integer :: a(10), b(10)
!$omp threadprivate(j, k)
j = 20
k = 10
!$omp parallel do copyin(j, k)
do i = 1, 10
a(i) = k + i
b(i) = j + i
end do
!$omp end parallel do
print *, a, b
end program omp_copyin
|
