08/06/04 00:57:48
補足
PROGRAM NAN
IMPLICIT NONE
REAL(4) :: a
REAL(8) :: d
a = TRANSFER(-1_4, a)
d = TRANSFER(-1_8, d)
PRINT *, a, d
STOP
END PROGRAM NAN
実行結果 by Intel Fortran
NaN NaN
Press any key to continue . . .
ここで -1_4 と -1_8 はそれぞれ４バイトと８バイトの整数の -1 。
２の補数表現なので整数の -1 は全ビット立ってる。