Indent files for intersci tests.
[scilab.git] / scilab / modules / intersci / tests / nonreg_tests / bug_4625.c
1 #include "stack-c.h"
2 /******************************************
3  * SCILAB function : ext1c, fin = 1
4  ******************************************/
5
6 int intsext1c(char *fname)
7 {
8     int m1, n1, l1, mn1, m2, n2, l2, mn2, un = 1, mn3, l3;
9     CheckRhs(2, 2);
10     CheckLhs(1, 1);
11     /*  checking variable a */
12     GetRhsVar(1, "d", &m1, &n1, &l1);
13     CheckVector(1, m1, n1);
14     mn1 = m1 * n1;
15     /*  checking variable b */
16     GetRhsVar(2, "d", &m2, &n2, &l2);
17     CheckVector(2, m2, n2);
18     mn2 = m2 * n2;
19     /* cross variable size checking */
20     CheckDimProp(1, 2, m1 * n1 != m2 * n2);
21     CreateVar(3, "d", (un = 1, &un), (mn3 = mn1, &mn3), &l3); /* named: c */
22     C2F(ext1c)(&mn1, stk(l1), stk(l2), stk(l3));
23     LhsVar(1) = 3;
24     return 0;
25 }