program test
c
c -- test significance and range of double-
c -- precision floating-point operations
c
      real*8 x, x2
      integer i, n, out
c
      out = 6
      n = 19
      x2 = 1.0d-278 / 3.0
      do 10 i = 1, n
        x = x2 / 10.0
        x2 = x / 10.0
        write(out, 101) i, x, x2
10    continue
      stop
101   format(1x, i4, 1p2d24.14)
      end