Sign in
gnu
/
gcc
/
4aef14b09557ce072f1269bd8a05fa2b1df0eda2
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.31.4.f90
blob: c03ba2adfd1510b50fcbb74cdf9952c1bb7a729a [
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
!
{
dg
-
final
{
cleanup
-
modules
"m"
}
}