ilib_verbose

if haveacompiler() then
  cur_verbose = ilib_verbose();
  ilib_verbose(0);

  chdir(TMPDIR);
  f1=['int ext1c(int *n, double *a, double *b, double *c)'
      '{int k;'
      '  for (k = 0; k < *n; ++k) '
      '      c[k] = a[k] + b[k];'
      '  return(0);}'];

  mputl(f1,'fun1.c');

  ilib_for_link('ext1c','fun1.c',[],"c");
  exec loader.sce;

  //using the new primitive
  a=[1,2,3];b=[4,5,6];n=3;
  c = call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
  if norm(c-(a+b)) > %eps then pause,end

  ilib_verbose(1);

  f2=['int ext2c(int *n, double *a, double *b, double *c)'
      '{int k;'
      '  for (k = 0; k < *n; ++k) '
      '      c[k] = a[k] + b[k];'
      '  return(0);}'];

  mputl(f2,'fun2.c');

  ilib_for_link('ext2c','fun2.c',[],"c") 
  exec loader.sce;

  //using the new primitive
  a = [1,2,3]; b = [4,5,6];n = 3;
  c = call('ext2c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
  if norm(c-(a+b)) > %eps then pause,end

  ilib_verbose(cur_verbose);

end