diff options
Diffstat (limited to 'testsuite/bc_numbers2.bc')
-rw-r--r-- | testsuite/bc_numbers2.bc | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/bc_numbers2.bc b/testsuite/bc_numbers2.bc new file mode 100644 index 000000000..208fe0d4d --- /dev/null +++ b/testsuite/bc_numbers2.bc | |||
@@ -0,0 +1,18 @@ | |||
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 | ||