Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
boz_dble.f90
blob: c15524398775f0710d1d5c35dd7f32760a9aea2f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program foo
double
precision x
x
=
dble
(
z
"400921FB54411744"
);
if
(
x
/=
3.1415926535
_8
)
stop
1
end