view libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents a06113de4d67
children
line wrap: on
line source

! { 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" } }