program test_exp
  write(*,*) exp(1.0), log(2.7182818284590451)
end program test_exp
