xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
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