summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--scilab/modules/elementaries_functions/sci_gateway/fortran/sci_f_eye.f2
-rw-r--r--tests/nonRegression/bug2421.sci10
-rw-r--r--tests/nonRegression/list_nonreg.txt1
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
13 iadr(l)=l+l-1 13 iadr(l)=l+l-1
14 sadr(l)=(l/2)+1 14 sadr(l)=(l/2)+1
15c 15c
16 if (lhs .ne. 1) then 16 if (lhs .gt. 1) then
17 call error(41) 17 call error(41)
18 return 18 return
19 endif 19 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 @@
1// Scilab Project - Serge Steer
2// Copyright INRIA 2007
3// Date : June 2007
4
5mode(-1) ;
6clear ;
7BugNumber=2421
8T=execstr('[a(:), v(1)] = (1, 2)','errcatch')==0
9affich_result(T,BugNumber) ;
10clear ;
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 @@
1722407 1722407
1732410 1732410
1742414 1742414
1752421
1752428 1762428
1762429 1772429
1772430 1782430