testsuite/bc_misc1.bc

   1 define x(x) {
   2         return(x)
   3 }
   4 define y() {
   5         return;
   6 }
   7 define z() {return}
   8 scale = 0
   9 x=2
  10 x[0]=3
  11 x
  12 x[0]
  13 scale
  14 ibase
  15 obase
  16 x ( 7 )
  17 x + x( 8 )
  18 x - x[0]
  19 321 * x
  20 2 ^ x[0]
  21 x++
  22 --x
  23 x += 9
  24 x
  25 length(2381)
  26 sqrt(9)
  27 scale(238.1)
  28 x=2
  29 x[0]=3
  30 (x)
  31 (x[0])
  32 (scale)
  33 (ibase)
  34 (obase)
  35 (x ( 7 ))
  36 (x + x( 8 ))
  37 (x - x[0])
  38 (321 * x)
  39 (2 ^ x[0])
  40 (x++)
  41 (--x)
  42 (x += 9)
  43 (length(2381))
  44 (sqrt(9))
  45 (scale(238.1))
  46 (scale = 0)
  47 (x = 10)
  48 (x += 100)
  49 (x -= 10)
  50 (x *= 10)
  51 (x /= 100)
  52 (x ^= 10)
  53 (x = sqrt(x))
  54 (x[1 - 1])
  55 x[(1 - 1)]
  56 2 + \
  57 3
  58 ++ibase
  59 --ibase
  60 ++obase
  61 --obase
  62 ++last
  63 --last
  64 last
  65 last = 100
  66 last
  67 . = 150
  68 .
  69 ++scale
  70 --scale
  71 y()
  72 z()
  73 2 + /*
  74 */3