program main
  implicit none
  real(8), parameter :: nan = transfer(-1_8, 0.d0)

  print*, nan
  print"(b64.64)", nan

end program main