testsuite/bc_misc1.bc

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