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