summaryrefslogtreecommitdiffstats
path: root/scilab/modules/elementary_functions
diff options
context:
space:
mode:
authorSerge Steer <serge.steer@scilab.org>2010-03-12 19:20:09 +0100
committerSerge Steer <serge.steer@scilab.org>2010-03-12 19:20:09 +0100
commitceab2680a51fc5fde825dd2c2bb87447bd456872 (patch)
treee70aa111ca2859c106e913137a66bce90489d7cc /scilab/modules/elementary_functions
parent276c49ae41b60f11cd39ef74bab56ca385da2091 (diff)
downloadscilab-ceab2680a51fc5fde825dd2c2bb87447bd456872.zip
scilab-ceab2680a51fc5fde825dd2c2bb87447bd456872.tar.gz
bug 6698 fix
Diffstat (limited to 'scilab/modules/elementary_functions')
-rw-r--r--scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f2
1 files changed, 1 insertions, 1 deletions
diff --git a/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f b/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
index 5a79b8f..7f32d99 100644
--- a/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
+++ b/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
@@ -62,7 +62,7 @@ c . check for zero imaginary part
62 if(istk(il).ne.1.and.istk(il).ne.2.and.istk(il).ne.5) then 62 if(istk(il).ne.1.and.istk(il).ne.2.and.istk(il).ne.5) then
63 top=top+1 63 top=top+1
64 call ref2val 64 call ref2val
65 call funnam(ids(1,pt+1),'isreal',iadr(lstk(top))) 65 call funnam(ids(1,pt+1),'isreal',iadr(lstk(top-1)))
66 fun=-1 66 fun=-1
67 return 67 return
68 endif 68 endif