gcc/testsuite/gfortran.dg/boz_14.f90

   1 ! { dg-do run }
   2 ! { dg-add-options ieee }
   3
   4 ! PR fortran/36214
   5 ! For BOZ-initialization of floats, the precision used to be wrong sometimes.
   6
   7    implicit none
   8    real(4) r
   9    real(8) rd
  10    complex(8) z
  11    rd = &
  12     real (b'00000000000000000000000000000000&
  13            &01000000001010010101001111111101',8)
  14    z  = &
  15     cmplx(b'00000000000000000000000000000000&
  16            &01000000001010010101001111111101',0,8)
  17    r = 0.
  18    if (z /= rd) call abort
  19    end