program float1
real :: y
print *, float(y)
end program
