flang/test/Semantics/OpenMP/omp-copyin05.f90

   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
   7 subroutine 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
  23 end subroutine copyin