tst-number.f 380 Bytes
Newer Older
rtoy's avatar
rtoy committed
1 2 3 4 5 6 7 8
      program num
      data z / 1.234 567 8 e+10/
      x = 1.234 567e9+.123 456 e 9
      x = 0.    1 2 3
      x = 7
      x = 8.
      y = 1. 2 3 4 e+ 9
      z = -3.14159e + 1 * x
9 10 11 12
      z = -3. 1 4 1 5 9 e - 1 0 * x
      z = -3. 1 4 1 5 9 e - 10 * (-2. 7 1 8 2 8)/ y
      z = -3. 1 4 1 5 9 e - 1 0 * (-  2. 7 1 8 2 8 / y)
      if (z .ge. 6.or. y.ge.1) x=  3.  0
rtoy's avatar
rtoy committed
13
      end