gcc/testsuite/gfortran.dg/boz_11.f90

   1 ! { dg-do run }
   2 !
   3 program test0
   4    implicit none
   5    real, parameter :: &
   6      r = transfer(int(b'01000000001010010101001111111101',kind=4),0.)
   7    complex, parameter :: z = r * (0, 1.)
   8    real(kind=8), parameter :: rd = dble(b'00000000000000000000000000000000&
   9                                          &01000000001010010101001111111101')
  10    complex(kind=8), parameter :: zd = (0._8, 1._8) * rd
  11    integer :: x = 0
  12
  13    if (cmplx(b'01000000001010010101001111111101',x,4) /= r) STOP 1
  14    if (cmplx(x,b'01000000001010010101001111111101',4) /= z) STOP 2
  15
  16 end program test0