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 }