Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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