summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSerge Steer <serge.steer@scilab.org>2007-06-22 12:38:23 +0000
committerSerge Steer <serge.steer@scilab.org>2007-06-22 12:38:23 +0000
commit2eafbd57b8e5b2a18c81ffd07dbca08ba125eb19 (patch)
treee0b93d2bd37be4bb9d9b8714437bb075c8ec8a4b
parent3798cdf0ef6bf3e24b30e4ce24d238ff2bea5566 (diff)
downloadscilab-2eafbd57b8e5b2a18c81ffd07dbca08ba125eb19.zip
scilab-2eafbd57b8e5b2a18c81ffd07dbca08ba125eb19.tar.gz
bug 2421 fix
-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