Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr95053_2.f90
blob: 7bb941ab46e7c7d5b960ffa9523e04c51b129929 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
95053
-
make sure we
do
not
regress on
521.wrf
_r
from
spec2017
!
function
f
(
x
)
real
,
parameter
::
cldeps
=
0.
f
=
0.
if
(
cldeps
>
0.
)
then
f
=
floor
(
x
/
cldeps
)
*
cldeps
end
if
end
function
f