27 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.4.1 copyin Clause4! A list item that appears in a copyin clause must be threadprivate5 6program omp_copyin7 8 integer :: i9 integer, save :: j, k10 integer :: a(10), b(10)11 12 !$omp threadprivate(j, k)13 14 j = 2015 k = 1016 17 !$omp parallel do copyin(j, k)18 do i = 1, 1019 a(i) = k + i20 b(i) = j + i21 end do22 !$omp end parallel do23 24 print *, a, b25 26end program omp_copyin27