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