e19977d379
2009-12-22 Iain Sandoe <iain.sandoe@sandoe-acoustics.co.uk> * testsuite/libgomp.fortran/crayptr2.f90: Remove forced static linkage for darwin, protect the test with require-effective-target tls_runtime. * testsuite/libgomp.fortran/pr32550.f90: Ditto. From-SVN: r155409
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
|