2 files changed, 22 insertions, 3 deletions

diff --git a/scilab/modules/optimization/sci_gateway/fortran/sci_f_optim.f b/scilab/modules/optimization/sci_gateway/fortran/sci_f_optim.f
index 3ed84d6..8e0d693 100644
--- a/scilab/modules/optimization/sci_gateway/fortran/sci_f_optim.f
+++ b/scilab/modules/optimization/sci_gateway/fortran/sci_f_optim.f
@@ -129,7 +129,7 @@ c     contraintes de borne (chaine "b" , xinf , xsup )
          endif
          top2=top2+1
          il=iadr(lstk(top2))
-         if(istk(il).gt.2)  then
+         if(istk(il).gt.2.or.istk(il).eq.0)  then
             err=top2-topin
             call error(54)
             return
@@ -144,7 +144,7 @@ c     contraintes de borne (chaine "b" , xinf , xsup )
          endif
          top2=top2+1
          il=iadr(lstk(top2))
-         if(istk(il).gt.2)  then
+         if(istk(il).gt.2.or.istk(il).eq.0)  then
             err=top2-topin
             call error(54)
             return
@@ -167,7 +167,7 @@ c     contraintes de borne (chaine "b" , xinf , xsup )
       end if
 c     
 c     point initial
-      if(istk(il).gt.2)  then
+      if(istk(il).gt.2.or.istk(il).eq.0)  then
          err=top2-topin
          call error(54)
          return
diff --git a/tests/nonRegression/bug2435.sci b/tests/nonRegression/bug2435.sci
new file mode 100644
index 0000000..f78eee1
--- /dev/null
+++ b/tests/nonRegression/bug2435.sci
@@ -0,0 +1,19 @@
+// Scilab Project - Serge Steer
+// Copyright INRIA 2007
+// Date : June 2007
+
+mode(-1) ;
+clear ;
+BugNumber=2435;
+
+function [f,g,ind]=cost(x,ind)
+  xref=[1;2;3];
+  f=0.5*norm(x-xref)^2
+  g=x-xref;
+endfunction
+
+x0=[1;-1;1];
+T=execstr('[f,xopt]=optim(cost,,''b'',-2*ones(x0),2*ones(x0),x0);','errcatch')==54
+    
+affich_result(T,BugNumber) ;
+clear ;