mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
22 lines
430 B
Fortran
22 lines
430 B
Fortran
! PR fortran/32550
|
|
! { dg-do run }
|
|
! { dg-require-effective-target tls_runtime }
|
|
|
|
integer, pointer, save :: ptr
|
|
integer, target :: targ
|
|
integer :: e
|
|
!$omp threadprivate(ptr)
|
|
e = 0
|
|
targ = 42
|
|
!$omp parallel shared(targ)
|
|
!$omp single
|
|
ptr => targ
|
|
!$omp end single copyprivate(ptr)
|
|
if (ptr.ne.42) then
|
|
!$omp atomic
|
|
e = e + 1
|
|
end if
|
|
!$omp end parallel
|
|
if (e.ne.0) STOP 1
|
|
end
|