35 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 :: k10 integer :: a(10), b(10)11 common /cmn/ j12 13 k = 1014 15 !ERROR: Non-THREADPRIVATE object 'k' in COPYIN clause16 !$omp parallel do copyin(k)17 do i = 1, 1018 a(i) = k + i19 j = j + a(i)20 end do21 !$omp end parallel do22 23 print *, a24 25 !ERROR: Non-THREADPRIVATE object 'j' in COPYIN clause26 !$omp parallel do copyin(/cmn/)27 do i = 1, 1028 b(i) = a(i) + j29 end do30 !$omp end parallel do31 32 print *, b33 34end program omp_copyin35