!
      program tstexp
      implicit none
!
! Use -qrealsize=8
! "Actual" limit for exparg on babyblue = -746. -> 709.
!
! No traps on AIX:
!   exparg= 709.00 x=exp(exparg)= 0.82184075+308
!   exparg= 710.00 x=exp(exparg)=            INF
!
! On the Cray J90, exparg max = 5676. (exp(5676)=.1e+2466)
!
      real :: x,exparg,x1
      integer :: i
!
      exparg = 700.
!     exparg = -700.
!     exparg = -0.15e65
      do i=1,15
        x = exp(exparg)
        write(6,"('exparg=',f7.2,' x=exp(exparg)=',e15.8)") exparg,x
        exparg = exparg+1.
!       exparg = exparg-1.
      enddo
!
!     x1 = -1.
!     x = sqrt(x1)
!     write(6,"('xqrt(-1.)=',e15.8)") x
      end