1! { dg-do run }
2        MODULE M
3        INTRINSIC MAX
4        END MODULE M
5        PROGRAM A31_4
6        USE M, REN => MAX
7        N=0
8!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
9        DO I = 1, 100
10            N = MAX(N,I)
11        END DO
12        END PROGRAM A31_4
13
14! { dg-final { cleanup-modules "m" } }
15