read: fix wrong length propagation 28/20828/2
Antoine ELIAS [Fri, 8 Feb 2019 22:01:45 +0000 (23:01 +0100)]
Change-Id: Ie343a830318f837c208d26a3117c6a6e78848937

scilab/modules/core/src/fortran/read_inter.f

index b5cc952..27d386f 100644 (file)
@@ -117,7 +117,7 @@ c along with this program.
       integer siz,ierr
 
       string=' '
-      call scilabread(string,len(string))
+      call scilabread(string)
       read(string,form,end=10,err=20) dat
       mn = lch
 128   mn=mn-1