program test
c
c -- test significance and range of the
c -- floating-point operations
c -- figure 1.1
c
      real x, x2
      integer i, n, out
c
      out = 6
      n = 19
      x2 = 1.0e-4 / 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, 1p2e15.6)
      end