// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2009 - DIGITEO - Allan CORNET
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================
file3=TMPDIR + '/test3.bin';
fd1= mopen(file3,'wb');
for i=1:10
  mput(i,'d');
end 
mseek(0);
mput(678,'d');
mseek(0,fd1,'end');
mput(932,'d');
mclose(fd1)
 ans  =
 
    0.  
fd1= mopen(file3,'rb');
res=mget(11,'d')
 res  =
 
 
         column  1 to 10
 
    678.    2.    3.    4.    5.    6.    7.    8.    9.    10.  
 
         column 11
 
    932.  
res1=[1:11];
res1(1)=678;
res1($)=932;
if res1<>res then bugmes();quit;end;
mseek(0,fd1,'set');
res1 = mget(100,'d',fd1);
if res1<>res then bugmes();quit;end;
meof(fd1);
mclearerr(fd1);
mclose(fd1);