Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
vect
/
Ofast-pr50414.f90
blob: 2f407d1ef35607a07b98a854abad5f1d71401cca [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
additional
-
options
"-std=legacy"
}
SUBROUTINE SUB
(
A
,
L
,
YMAX
)
DIMENSION A
(
L
)
YMA
=
A
(
1
)
DO
2
I
=
1
,
L
,
2
2
YMA
=
MAX
(
YMA
,
A
(
I
),
A
(
I
+
1
))
CALL PROUND
(
YMA
)
END