1! { dg-do run } 2! 3program 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 16end program test0 17