mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
18 lines
313 B
Fortran
18 lines
313 B
Fortran
! @@name: reduction.4f
|
|
! @@type: F-free
|
|
! @@compilable: yes
|
|
! @@linkable: yes
|
|
! @@expect: success
|
|
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
|