blob: 8f1ba29a5ce4cd840024c97d2fd059f35be17dd7 [file] [log] [blame]
! RUN: %python %S/ %s %flang -fopenmp
! OpenMP Version 4.5
! copyin Clause
! A common block name that appears in a copyin clause must be declared to be
! a common block in the same scoping unit in which the copyin clause appears.
subroutine copyin()
call copyin_clause()
subroutine copyin_clause()
integer :: a = 20
common /cmn/ a
!$omp threadprivate(/cmn/)
!$omp parallel copyin(/cmn/)
print *, a
!$omp end parallel
end subroutine copyin_clause
end subroutine copyin