program tst
   write (6,"(a,es15.8)") "2.0**(-0.0) = ",2.0**(-0.0)
end program tst

