mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
21 lines
473 B
Fortran
21 lines
473 B
Fortran
! @@name: priv_reduction.3
|
|
! @@type: F-free
|
|
! @@operation: run
|
|
! @@expect: success
|
|
! @@version: omp_6.0
|
|
program nest_red
|
|
implicit none
|
|
integer :: x
|
|
|
|
x = 0
|
|
! parallel reduction on shared x
|
|
!$omp parallel reduction(+: x) num_threads(strict: 4)
|
|
!$omp do reduction(+: x) ! reduction on private x
|
|
do i = 1, 10
|
|
x = x + 1
|
|
end do
|
|
!$omp end do
|
|
!$omp end parallel
|
|
print *, "x =", x ! should print 40, with 4 threads
|
|
end program
|