3
//creating vector c in scilab internal stack
5
files=G_make(['/tmp/ext7f.o'],'ext7f.dll');
9
//c does not exist (c made by ext7f)
10
c1=call('ext7f',a,1,'d',b,2,'d','out',2);
11
if norm(c1-b) > %eps then pause,end
13
if norm(c-(a+2*b)) > %eps then pause,end
15
if d<>"test" then pause,end