mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-18 12:29:08 +00:00
22 lines
434 B
Fortran
22 lines
434 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) call abort
|
||
|
end
|