| ! { dg-do run } | |
| ! | |
| program test0 | |
| implicit none | |
| real, parameter :: & | |
| r = transfer(int(b'01000000001010010101001111111101',kind=4),0.) | |
| complex, parameter :: z = r * (0, 1.) | |
| real(kind=8), parameter :: rd = dble(b'00000000000000000000000000000000& | |
| &01000000001010010101001111111101') | |
| complex(kind=8), parameter :: zd = (0._8, 1._8) * rd | |
| integer :: x = 0 | |
| if (cmplx(b'01000000001010010101001111111101',x,4) /= r) STOP 1 | |
| if (cmplx(x,b'01000000001010010101001111111101',4) /= z) STOP 2 | |
| end program test0 |