6da1739222
PR target/32765 * testsuite/libgomp.fortran/pr32550.f90: Use -static-libgcc on Darwin. * testsuite/libgomp.fortran/crayptr2.f90: Likwise. From-SVN: r127514
22 lines
445 B
Fortran
22 lines
445 B
Fortran
! PR fortran/32550
|
|
! { dg-do run }
|
|
! { dg-options "-static-libgcc" { target *-*-darwin* } }
|
|
|
|
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
|