program dfloat1
real :: y
print *, dfloat(y)
end program
