mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-10 08:22:11 +01:00
18 lines
318 B
Fortran
18 lines
318 B
Fortran
! @@name: reduction.4
|
|
! @@type: F-free
|
|
! @@operation: run
|
|
! @@expect: success
|
|
! @@version: pre_omp_3.0
|
|
MODULE M
|
|
INTRINSIC MAX
|
|
END MODULE M
|
|
|
|
PROGRAM REDUCTION3
|
|
USE M, REN => MAX
|
|
N = 0
|
|
!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
|
|
DO I = 1, 100
|
|
N = MAX(N,I)
|
|
END DO
|
|
END PROGRAM REDUCTION3
|