1program tst
2   write (6,"(a,es15.8)") "2.0**(-0.0) = ",2.0**(-0.0)
3end program tst
4
5