Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.31.4.f90
blob: 69882c1e6b95db7b1f4a88d7a70835277e6c4687 [
file
] [
log
] [
blame
]
!
{
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