1PROGRAM TestInfinite
2  integer(8) :: bit_pattern_NegInf_i8 = -4503599627370496_8
3
4  integer(8) :: i
5  real(8)    :: r
6
7  r = transfer(bit_pattern_NegInf_i8_p,r)
8  i = transfer(r,i)
9
10END PROGRAM TestInfinite
11
12