1! RUN: %S/test_errors.sh %s %t %f18 -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 integer :: a = 10 9 common /cmn/ a 10 11 !$omp threadprivate(/cmn/) 12 call copyin_clause() 13 14 contains 15 16 subroutine copyin_clause() 17 !ERROR: COMMON block must be declared in the same scoping unit in which the OpenMP directive or clause appears 18 !$omp parallel copyin(/cmn/) 19 print *, a 20 !$omp end parallel 21 end subroutine copyin_clause 22 23end subroutine copyin 24