gcc/testsuite/gfortran.dg/gomp/appendix-a/a.31.1.f90

   1 ! { dg-do compile }
   2
   3       SUBROUTINE A31_1(A, B, X, Y, N)
   4         INTEGER N
   5         REAL X(*), Y(*), A, B
   6 !$OMP PARALLEL DO PRIVATE(I) SHARED(X, N) REDUCTION(+:A)
   7 !$OMP& REDUCTION(MIN:B)
   8         DO I=1,N
   9            A = A + X(I)
  10            B = MIN(B, Y(I))
  11 !  Note that some reductions can be expressed in
  12 !  other forms. For example, the MIN could be expressed as
  13 !  IF (B > Y(I)) B = Y(I)
  14          END DO
  15       END SUBROUTINE A31_1