1! { dg-do run }
2            MODULE MOD
3            INTRINSIC MAX, MIN
4            END MODULE MOD
5            PROGRAM A31_5
6            USE MOD, MIN=>MAX, MAX=>MIN
7            REAL :: R
8            R = -HUGE(0.0)
9            !$OMP PARALLEL DO REDUCTION(MIN: R) ! still does MAX
10            DO I = 1, 1000
11                R = MIN(R, SIN(REAL(I)))
12            END DO
13            PRINT *, R
14            END PROGRAM A31_5
15