gcc/testsuite/gfortran.dg/boz_13.f90

   1 ! { dg-do run }
   2
   3 ! PR fortran/36214
   4 ! For BOZ-initialization of floats, the precision used to be wrong sometimes.
   5
   6 implicit 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) call abort
  13 end