24 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.4.1 copyin Clause4! A common block name that appears in a copyin clause must be declared to be5! a common block in the same scoping unit in which the copyin clause appears.6 7subroutine copyin()8 call copyin_clause()9 10 contains11 12 subroutine copyin_clause()13 integer :: a = 2014 common /cmn/ a15 16 !$omp threadprivate(/cmn/)17 18 !$omp parallel copyin(/cmn/)19 print *, a20 !$omp end parallel21 end subroutine copyin_clause22 23end subroutine copyin24