xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobert! { dg-do run }
2*404b540aSrobert        MODULE M
3*404b540aSrobert        INTRINSIC MAX
4*404b540aSrobert        END MODULE M
5*404b540aSrobert        PROGRAM A31_4
6*404b540aSrobert        USE M, REN => MAX
7*404b540aSrobert        N=0
8*404b540aSrobert!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
9*404b540aSrobert        DO I = 1, 100
10*404b540aSrobert            N = MAX(N,I)
11*404b540aSrobert        END DO
12*404b540aSrobert        END PROGRAM A31_4
13