2ada56f5a0
* testsuite/libgomp.fortran/appendix-a/a.22.8.f90: Add dg-final cleanup-modules line. * testsuite/libgomp.fortran/appendix-a/a.40.1.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.31.5.f90: Likewise. * testsuite/libgomp.fortran/appendix-a/a.31.4.f90: Likewise. * testsuite/libgomp.fortran/threadprivate2.f90: Likewise. * testsuite/libgomp.fortran/reduction5.f90: Likewise. * testsuite/libgomp.fortran/threadprivate3.f90: Likewise. * testsuite/libgomp.fortran/threadprivate1.f90: Likewise. From-SVN: r123116
15 lines
317 B
Fortran
15 lines
317 B
Fortran
! { 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" } }
|