URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 273 |
Rev 519 |
! PR fortran/32550
|
! PR fortran/32550
|
! { dg-do run }
|
! { dg-do run }
|
! { dg-require-effective-target tls_runtime }
|
! { dg-require-effective-target tls_runtime }
|
|
|
integer, pointer, save :: ptr
|
integer, pointer, save :: ptr
|
integer, target :: targ
|
integer, target :: targ
|
integer :: e
|
integer :: e
|
!$omp threadprivate(ptr)
|
!$omp threadprivate(ptr)
|
e = 0
|
e = 0
|
targ = 42
|
targ = 42
|
!$omp parallel shared(targ)
|
!$omp parallel shared(targ)
|
!$omp single
|
!$omp single
|
ptr => targ
|
ptr => targ
|
!$omp end single copyprivate(ptr)
|
!$omp end single copyprivate(ptr)
|
if (ptr.ne.42) then
|
if (ptr.ne.42) then
|
!$omp atomic
|
!$omp atomic
|
e = e + 1
|
e = e + 1
|
end if
|
end if
|
!$omp end parallel
|
!$omp end parallel
|
if (e.ne.0) call abort
|
if (e.ne.0) call abort
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
