bug 2433
Allan Cornet [Fri, 20 Jul 2007 09:53:55 +0000 (09:53 +0000)]
file('close',0)

scilab can't closed the unit 0.

scilab/modules/io/sci_gateway/fortran/intfile.f

index ed90d82..47ed501 100644 (file)
@@ -372,7 +372,7 @@ c     close
             mode(1)=0
             do 151 i=1,n
                lunit=int(stk(l-1+i))
-               if(lunit.ge.0) then
+               if(lunit.gt.0) then
                   call clunit(-lunit,buf,mode)
                endif
  151        continue