Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
rrspacing_1.f90
blob: 551a61584b376e534603ec5e60c79347dee3c88f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program m
integer i
real x
,
y
real
,
parameter
::
a
=
-
3.0
i
=
int
(
rrspacing
(
a
))
if
(
i
/=
12582912
)
STOP
1
end
program m