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