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 20