testsuite/bc_numbers2.bc

   1 define f() {
   2         "ibase:";ibase
   3         a=A;a
   4         a=F;a
   5         a=G;a
   6         a=Z;a
   7         a=0A;a
   8         a=0F;a
   9         a=0G;a
  10         a=0Z;a
  11 }
  12 f()
  13 ibase=9;f()
  14 ibase=A;f()
  15 ibase=F;f()
  16 ibase=G;f()
  17 #ibase=Z;f()
  18 halt