program main
   print*,kind(1.d0)
end program main
