!
      program tstexp
      implicit none
      real :: x,exparg
      integer :: i
!
      exparg = -0.8e60
      x = exp(exparg)
      write(6,"('exparg=',e12.4,' x=',e12.4)") exparg,x
      end