1! { dg-do run } 2 3! PR fortran/36214 4! For BOZ-initialization of floats, the precision used to be wrong sometimes. 5 6implicit none 7 real, parameter :: r = 0.0 8 real(kind=8), parameter :: rd = real (z'00000000& 9 &402953FD', 8) 10 11 if (real (z'00000000& 12 &402953FD', 8) /= rd) STOP 1 13end 14