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