Fix test (wrong Fortran code) 80/12180/2
Vincent COUVERT [Tue, 30 Jul 2013 08:03:17 +0000 (10:03 +0200)]
test_run("optimization", "colnew")

Change-Id: Ied3e1f7c5651eb17daf98c6ac6f275822dae9419

scilab/modules/differential_equations/sci_gateway/fortran/sci_f_bvode.f

index c1b9423..5db3c3c 100644 (file)
@@ -134,9 +134,9 @@ c     1 <= ltol(1) <= M
          return
       endif
 c     ltol(1) < ltol(2) < ... < ltol(NTOL) <= M
-      do 11 i=2,mltol*nltol then
-         if(istk(iadr(lltol+i-2)).ge.istk(iadr(lltol+i-1)).or.
-     $      istk(iadr(lltol+i-1)).gt.mstar) then
+      do 11 i=2,mltol*nltol
+         if(istk(iadr(lltol)+i-2).ge.istk(iadr(lltol)+i-1).or.
+     $      istk(iadr(lltol)+i-1).gt.mstar) then
             err = 8
             call error(116)
             return