Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
rrspacing_1.f90
blob: 8b866aaa272dabc6802e963635cc78d9b43aeb8f [
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
)
call abort
end
program m