! RUN: %python %S/test_errors.py %s %flang -fopenmp | |
! OpenMP Version 4.5 | |
! 2.15.4.1 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() | |
contains | |
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 |