toms707_test():
  toms707() evaluates the confluent
  hypergeometric function.

  a =               (-15.000000000000000,55.000000000000000)
  b =                (20.000000000000000,25.000000000000000)
  z =               (-100.00000000000000,200.00000000000000)
  lnchf =            0
  ip =           10
  Result from conhyp=       2.311456344031D-12      -1.961696496349D-11
  Expected result=          2.311456344031D-12      -1.961696496349D-11

toms707_test():
  Normal end of execution.