libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do run }
        MODULE M
        INTRINSIC MAX
        END MODULE M
        PROGRAM A31_4
        USE M, REN => MAX
        N=0
!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
        DO I = 1, 100
            N = MAX(N,I)
        END DO
        END PROGRAM A31_4

! { dg-final { cleanup-modules "m" } }