* bug 7599 fixed - Intersci-n and intersci did not create code from a .desc file...
[scilab.git] / scilab / modules / intersci / tests / nonreg_tests / bug_7599.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 }