Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
min0_max0_1.f90
blob: 118b0f03b52acda2957bbc37af78ea3639278901 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=gnu"
}
!
PR fortran
/
100283
subroutine s
()
integer
(
kind
=
8
)
::
i
,
j
,
k
i
=
min0
(
j
,
k
)
i
=
max0
(-
127
_8
,
min0
(
j
,
127
_8
))
end
subroutine s