derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
114 lines
3.0 KiB
Fortran
114 lines
3.0 KiB
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
! OpenMP Version 5.2
|
|
! 5.1.1 - Variables Referenced in a Construct
|
|
! Copyprivate must accept variables that are predetermined as private.
|
|
|
|
module m1
|
|
integer :: m
|
|
end module
|
|
|
|
program omp_copyprivate
|
|
use m1
|
|
implicit none
|
|
integer :: i
|
|
integer, save :: j
|
|
integer :: k
|
|
common /c/ k
|
|
real, parameter :: pi = 3.14
|
|
integer :: a1(10)
|
|
|
|
! Local variables are private.
|
|
!$omp single
|
|
i = 123
|
|
!$omp end single copyprivate(i)
|
|
!$omp single
|
|
!$omp end single copyprivate(a1)
|
|
|
|
! Variables with the SAVE attribute are not private.
|
|
!$omp single
|
|
!ERROR: COPYPRIVATE variable 'j' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(j)
|
|
|
|
! Common block variables are not private.
|
|
!$omp single
|
|
!ERROR: COPYPRIVATE variable 'k' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(/c/)
|
|
!$omp single
|
|
!ERROR: COPYPRIVATE variable 'k' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(k)
|
|
|
|
! Module variables are not private.
|
|
!$omp single
|
|
!ERROR: COPYPRIVATE variable 'm' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(m)
|
|
|
|
! Parallel can make a variable shared.
|
|
!$omp parallel
|
|
!$omp single
|
|
i = 456
|
|
!ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(i)
|
|
call sub(j, a1)
|
|
!$omp end parallel
|
|
|
|
!$omp parallel shared(i)
|
|
!$omp single
|
|
i = 456
|
|
!ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(i)
|
|
!$omp end parallel
|
|
|
|
!FIXME: an error should be emitted in this case.
|
|
! copyprivate(i) should be considered as a reference to i and a new
|
|
! symbol should be created in `parallel` scope, for this case to be
|
|
! handled properly.
|
|
!$omp parallel
|
|
!$omp single
|
|
!$omp end single copyprivate(i)
|
|
!$omp end parallel
|
|
|
|
! Named constants are shared.
|
|
!$omp single
|
|
!ERROR: COPYPRIVATE variable 'pi' is not PRIVATE or THREADPRIVATE in outer context
|
|
!ERROR: 'pi' must be a variable
|
|
!$omp end single copyprivate(pi)
|
|
|
|
!$omp parallel do
|
|
do i = 1, 10
|
|
!$omp parallel
|
|
!$omp single
|
|
j = i
|
|
!ERROR: COPYPRIVATE variable 'i' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(i)
|
|
!$omp end parallel
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
contains
|
|
subroutine sub(s1, a)
|
|
integer :: s1
|
|
integer :: a(:)
|
|
|
|
! Dummy argument.
|
|
!$omp single
|
|
!$omp end single copyprivate(s1)
|
|
|
|
! Assumed shape arrays are shared.
|
|
!$omp single
|
|
!ERROR: COPYPRIVATE variable 'a' is not PRIVATE or THREADPRIVATE in outer context
|
|
!$omp end single copyprivate(a)
|
|
end subroutine
|
|
|
|
integer function fun(f1)
|
|
integer :: f1
|
|
|
|
! Dummy argument.
|
|
!$omp single
|
|
!$omp end single copyprivate(f1)
|
|
|
|
! Function result is private.
|
|
!$omp single
|
|
!$omp end single copyprivate(fun)
|
|
end function
|
|
end program
|