anchor.diff:                  n = 9
                   m = 14
               end if
  -            do 160 icase = 1, 2
  -                do 120 i = 1, n
  -120             x (i) = 1.0_wp
  +            do icase = 1, 2
  +                do i = 1, n
  +                    x (i) = 1.0_wp
  +                end do
                   rhobeg = 0.5_wp
                   rhoend = 0.001_wp
                   if (icase == 2) rhoend = 0.0001_wp
  
positive.code:                 con (1) = 5.0_wp * x (1) - x (2) + x (3)
                  con (2) = x (3) - x (1) ** 2 - x (2) ** 2 - 4.0_wp * x (2)
                  con (3) = x (3) - 5.0_wp * x (1) - x (2)
              else if (nprob == 8) then
      !
      !     Test problem 8 (Rosen-Suzuki)
  
negative.code:             vmultc (k) = vsave
          end if
          temp = 0.0_wp
          do i = 1, n
              temp = temp + z (i, nact) * a (i, kk)
          end do
          if (temp == 0.0_wp) go to 490
          zdota (nact) = temp
          vmultc (icon) = 0.0_wp
  