Ticket #158: mgrad.tst
| File mgrad.tst, 408 bytes (added by , 14 years ago) |
|---|
| Line | |
|---|---|
| 1 | ring r = 0,(x, y), dp; |
| 2 | intmat A[2][2] = 1, 0, 0, 1; |
| 3 | attrib(basering, "mgrad", A); |
| 4 | |
| 5 | proc getGrad2(){ attrib(basering, "mgrad"); } |
| 6 | getGrad2(); // produces nothing! |
| 7 | |
| 8 | |
| 9 | |
| 10 | |
| 11 | |
| 12 | proc getGrad(def A){ attrib(A, "mgrad"); } |
| 13 | |
| 14 | getGrad(basering); // Produces: "atKill: unknown type(267)" |
| 15 | /* |
| 16 | ::getGrad 0. parameter def A; |
| 17 | ::getGrad 1> attrib(A, "mgrad"); |
| 18 | 1,0, |
| 19 | 0,1 |
| 20 | ::getGrad 2> |
| 21 | atKill: unknown type(267) |
| 22 | */ |
| 23 | |
| 24 | $$$ |
| 25 |
