Fix Crash when writing on stdin
[scilab.git] / scilab / modules / output_stream / sci_gateway / fortran / intprint.f
index 9c821bd..4417240 100644 (file)
@@ -1,25 +1,25 @@
 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 c Copyright (C) INRIA
 c Copyright (C) ENPC
-c 
+c
 c This file must be used under the terms of the CeCILL.
 c This source file is licensed as described in the file COPYING, which
 c you should have received as part of this distribution.  The terms
-c are also available at    
+c are also available at
 c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine intprint
       INCLUDE 'stack.h'
-c     
+c
       integer top2,tops
       integer mode(2)
       logical opened
       integer iadr
 c
       save opened,lunit
-c     
-c     
+c
+c
       iadr(l)=l+l-1
-c     
+c
       if(rhs.le.1) then
          call error(42)
          return
@@ -37,7 +37,13 @@ c     opening file
       mode(2)=0
       call v2unit(top,mode,lunit,opened,ierr)
       if(ierr.gt.0) return
-c     
+c
+c     try to write on stdin
+      if(lunit.eq.5) then
+         call error(49)
+         return
+      endif
+c
       l = lct(2)
       if(lunit.ne.wte) then
          lct(2) = 0