bug 2421 fix

3 files changed, 12 insertions, 1 deletions

diff --git a/scilab/modules/elementaries_functions/sci_gateway/fortran/sci_f_eye.f b/scilab/modules/elementaries_functions/sci_gateway/fortran/sci_f_eye.f
index 4500e5f..e3fce15 100644
--- a/scilab/modules/elementaries_functions/sci_gateway/fortran/sci_f_eye.f
+++ b/scilab/modules/elementaries_functions/sci_gateway/fortran/sci_f_eye.f
@@ -13,7 +13,7 @@ c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
 c
-      if (lhs .ne. 1) then
+      if (lhs .gt. 1) then
          call error(41)
          return
       endif
diff --git a/tests/nonRegression/bug2421.sci b/tests/nonRegression/bug2421.sci
new file mode 100644
index 0000000..ec555ab
--- /dev/null
+++ b/tests/nonRegression/bug2421.sci
@@ -0,0 +1,10 @@
+// Scilab Project - Serge Steer
+// Copyright INRIA 2007
+// Date : June 2007
+
+mode(-1) ;
+clear ;
+BugNumber=2421
+T=execstr('[a(:), v(1)] = (1, 2)','errcatch')==0
+affich_result(T,BugNumber) ;
+clear ;
diff --git a/tests/nonRegression/list_nonreg.txt b/tests/nonRegression/list_nonreg.txt
index 6abe801..344f559 100644
--- a/tests/nonRegression/list_nonreg.txt
+++ b/tests/nonRegression/list_nonreg.txt
@@ -172,6 +172,7 @@
 2407
 2410
 2414
+2421
 2428
 2429
 2430