Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
min0_max0_2.f90
blob: 3fe4fcd3609a90c9da2a1d96d67b08115841a8fc [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-fdefault-integer-8 -std=gnu"
}
!
PR fortran
/
101123
SUBROUTINE TEST
IMPLICIT INTEGER
*
4
(
I
-
N
)
MAXMN
=
MAX0
(
M
,
N
)
MINMN
=
MIN0
(
M
,
0_4
)
MAXRS
=
MAX1
(
R
,
S
)
END
SUBROUTINE TEST