1! RUN: %python %S/../test_errors.py %s %flang -fopenmp 2! OpenMP Version 4.5 3! 2.15.4.1 copyin Clause 4! A common block name that appears in a copyin clause must be declared to be 5! a common block in the same scoping unit in which the copyin clause appears. 6 7subroutine copyin() 8 call copyin_clause() 9 10 contains 11 12 subroutine copyin_clause() 13 integer :: a = 20 14 common /cmn/ a 15 16 !$omp threadprivate(/cmn/) 17 18 !$omp parallel copyin(/cmn/) 19 print *, a 20 !$omp end parallel 21 end subroutine copyin_clause 22 23end subroutine copyin 24