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