1! { dg-do run }
2program foo
3   double precision x
4   x = dble(z"400921FB54411744");
5   if (x /= 3.1415926535_8) stop 1
6end
7