mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-14 02:11:25 +01:00
21 lines
387 B
Fortran
21 lines
387 B
Fortran
! @@name: reduction.5
|
|
! @@type: F-free
|
|
! @@operation: run
|
|
! @@expect: success
|
|
! @@version: pre_omp_3.0
|
|
MODULE MOD
|
|
INTRINSIC MAX, MIN
|
|
END MODULE MOD
|
|
|
|
PROGRAM REDUCTION4
|
|
USE MOD, MIN=>MAX, MAX=>MIN
|
|
REAL :: R
|
|
R = -HUGE(0.0)
|
|
|
|
!$OMP PARALLEL DO REDUCTION(MIN: R) ! still does MAX
|
|
DO I = 1, 1000
|
|
R = MIN(R, SIN(REAL(I)))
|
|
END DO
|
|
PRINT *, R
|
|
END PROGRAM REDUCTION4
|