spielwiese
Last change
on this file since b7d0a9c was
42ea852,
checked in by Oleksandr Motsak <motsak@…>, 11 years ago
|
Further incompatibilities with master!
chg: Update 14.Jan.2013 (Tests regeneration/update due to master...)
TODO: still missing commits from [master] (Interpreter...10912c588c406e6aab9dd2342c3d0c200096cb22 4b8a660ce83e9c109ec9eae1f413ab721fea2fd4)
|
-
Property mode set to
100644
|
File size:
324 bytes
|
Line | |
---|
1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | |
---|
4 | proc probe(alias list args) |
---|
5 | { |
---|
6 | args; |
---|
7 | typeof(args); |
---|
8 | int i = size(args[1]); |
---|
9 | } |
---|
10 | |
---|
11 | ring r = 0, x, dp; |
---|
12 | ideal i = x; |
---|
13 | list l = list(i, 2); |
---|
14 | |
---|
15 | probe(l); |
---|
16 | |
---|
17 | proc probe2(alias list i) { i; }; |
---|
18 | |
---|
19 | list n = 1; |
---|
20 | probe2(n); |
---|
21 | |
---|
22 | proc probe3(alias int i) { i;listvar(); }; |
---|
23 | |
---|
24 | int j=2; |
---|
25 | probe3(j); |
---|
26 | |
---|
27 | probe3(1+2); |
---|
28 | |
---|
29 | tst_status(1);$ |
---|
30 | |
---|
Note: See
TracBrowser
for help on using the repository browser.