Sign in
llvm
/
llvm-archive
/
276bde03595d52e26812d2712817bc876da8ee7b
/
.
/
llvm-gcc-4.2
/
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