[legacy] Add functional and performance test suites

1 files changed, 72 insertions, 0 deletions

diff --git a/rcc-legacy/tests/functional/93_matrix_sub.sy b/rcc-legacy/tests/functional/93_matrix_sub.sy
new file mode 100644
index 0000000..898e7d1
--- /dev/null
+++ b/rcc-legacy/tests/functional/93_matrix_sub.sy
@@ -0,0 +1,72 @@
+int N;
+int M;
+int L;
+
+int sub(int a0[],int a1[], int a2[],int b0[],int b1[],int b2[],int c0[],int c1[],int c2[])
+{
+    int i;
+    i=0;
+    while(i<3)
+    {
+        c0[i]=a0[i]-b0[i];
+        c1[i]=a1[i]-b1[i];
+        c2[i]=a2[i]-b2[i];
+        i=i+1;
+    } 
+
+    return 0;
+
+}
+
+int main()
+{
+    N=3;
+M=3;
+L=3;
+    int a0[3];int a1[3]; int a2[3];int b0[3];int b1[3];int b2[3];int c0[6];int c1[3];int c2[3];
+    int i;
+    i=0;
+    while(i<3)
+    {
+        a0[i]=i;
+        a1[i]=i;
+        a2[i]=i;
+        b0[i]=i;
+        b1[i]=i;
+        b2[i]=i;
+        i=i+1;
+    }
+    i=sub( a0, a1,  a2, b0, b1, b2, c0, c1, c2);
+    int x;
+    while(i<3)
+    {
+        x = c0[i];
+        putint(x);
+       
+        i=i+1;
+    }
+    x = 10;
+    i=0;
+    putch(x);
+    while(i<3)
+    {
+        x = c1[i];
+        putint(x);
+       
+        i=i+1;
+    }
+    x = 10;
+    i=0;
+    putch(x);
+    while(i<3)
+    {
+        x = c2[i];
+        putint(x);
+       
+        i=i+1;
+    }
+    x =10;
+    putch(x);
+
+    return 0;
+}