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 }