[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323

[Bernhard R. Link]

The following commit has been merged in the cleanedupstream branch:
commit 25e8a7ec62a125d058b4142690f1d256c57dbfad
Author: Hans Schoenemann <hannes at mathematik.uni-kl.de>
Date:   Tue Feb 21 11:56:44 2012 +0100

    add: tests for tr. 404 (alias)

diff --git a/Tst/Short/bug_tr404.res.gz.uu b/Tst/Short/bug_tr404.res.gz.uu
new file mode 100644
index 0000000..3efc8c2
--- /dev/null
+++ b/Tst/Short/bug_tr404.res.gz.uu
@@ -0,0 +1,11 @@
+begin 640 bug_tr404.res.gz
+M'XL("-%W0T\``V)U9U]T<C0P-"YR97,`E5+/2\,P%+[WKW at 4#PV,K$D[MU%\
+M!_$R$"_S)C):W228==*D#!'_=Y.V:5HHDYV2O.]'OI>\[?/#Y at D`&,+CYAY"
+MK325H at BS8-LA',$4=Z(4.B)98%=`A*+^V.DJC5-:[L]4Z5SWB at 2AWZ<4YG/(
+MI<@5*%T?#CVRH/!5G=[@O3X>OUG44J10&B2!'Q"E!@%W(%_8:P8B at U\?Z18'
+M4GY1.J%>8L=EEF-V$9L!)YZP<@3N""V+S-H3)P/R&ET'DIDR<P"+T>63?`2P
+M+GW>Z6S<?-:D+FS\:J_KJHS"\ZGZ5"$99F=\I'6M7^.0C!P2=[LW^M<A'3FD
+MXPQ7^"S0B0I?-%_KWL4"YN$::8\OT?<^A:^P[VP27Z///8'SV,\N9[29?#O;
+/M3+?G]T$?XRRMU0O`P``
+`
+end
diff --git a/Tst/Short/bug_tr404.stat b/Tst/Short/bug_tr404.stat
new file mode 100644
index 0000000..14f834c
--- /dev/null
+++ b/Tst/Short/bug_tr404.stat
@@ -0,0 +1,4 @@
+1 >> tst_memory_0 :: 1329821649:3140- 14004 :3-1-4:ix86-Linux:mamawutz:181224
+1 >> tst_memory_1 :: 1329821649:3140- 14004 :3-1-4:ix86-Linux:mamawutz:2239244
+1 >> tst_memory_2 :: 1329821649:3140- 14004 :3-1-4:ix86-Linux:mamawutz:2272028
+1 >> tst_timer_1 :: 1329821649:3140- 14004 :3-1-4:ix86-Linux:mamawutz:7
diff --git a/Tst/Short/bug_tr404.tst b/Tst/Short/bug_tr404.tst
new file mode 100644
index 0000000..aaa1a45
--- /dev/null
+++ b/Tst/Short/bug_tr404.tst
@@ -0,0 +1,21 @@
+LIB "tst.lib";
+tst_init();
+
+// alias stuff
+proc dummy1(alias list l) { int i = l[1]; i; };
+proc dummy2(alias list l) { int i = l[1][1]; i; };
+list l1 = list(1, 2);
+list l2 = list(list(1), list(2));
+dummy1(l1);
+dummy2(l2);
+proc adummy1(int a, int b) { return("works"); };
+proc adummy2(alias int a, int b) { return("works"); };
+proc adummy3(int a, alias int b) { return("works"); };
+proc adummy4(alias int a, alias int b) { return("works"); };
+int a, b;
+adummy1(a, b);
+adummy2(a, b);
+adummy3(a, b);
+adummy4(a, b);
+
+tst_status(1);$
diff --git a/Tst/Short/ok_s.lst b/Tst/Short/ok_s.lst
index 07cc0c4..4b53ae2 100644
--- a/Tst/Short/ok_s.lst
+++ b/Tst/Short/ok_s.lst
@@ -108,6 +108,7 @@ bug_tr376
 bug_tr379
 bug_tr380
 bug_tr387
+bug_tr404
 brnoeth_s
 cyc5_lp
 bug_sres

-- 
an open source computer algebra system