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 integer :: a = 109 common /cmn/ a10 11 !$omp threadprivate(/cmn/)12 call copyin_clause()13 14 contains15 16 subroutine copyin_clause()17 !ERROR: COMMON block must be declared in the same scoping unit in which the OpenMP directive or clause appears18 !$omp parallel copyin(/cmn/)19 print *, a20 !$omp end parallel21 end subroutine copyin_clause22 23end subroutine copyin24