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