mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-07 23:22:11 +01:00
21 lines
370 B
Fortran
21 lines
370 B
Fortran
! @@name: reduction.3f
|
|
! @@type: F-free
|
|
! @@compilable: no
|
|
! @@linkable: no
|
|
! @@expect: failure
|
|
PROGRAM REDUCTION_WRONG
|
|
MAX = HUGE(0)
|
|
M = 0
|
|
|
|
!$OMP PARALLEL DO REDUCTION(MAX: M)
|
|
! MAX is no longer the intrinsic so this is non-conforming
|
|
DO I = 1, 100
|
|
CALL SUB(M,I)
|
|
END DO
|
|
|
|
END PROGRAM REDUCTION_WRONG
|
|
|
|
SUBROUTINE SUB(M,I)
|
|
M = MAX(M,I)
|
|
END SUBROUTINE SUB
|