Fix upper bound for subscript in ordered_cols.

[pspp] / lib / linreg / sweep.c

diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c
index 7d7dfc917fb3d846bdb29d7cc34564a8ea06b1d5..0dfa71fb6ac0468bcf058763d1894c5e25c287fc 100644 (file)
--- a/lib/linreg/sweep.c
+++ b/lib/linreg/sweep.c
@@ -88,7 +88,7 @@ reg_sweep (gsl_matrix * A, int last_col)
            {
              ordered_cols[i] = i;
            }
-         for (i = last_col + 1; i < A->size1 - 1; i++)
+         for (i = last_col + 1; i < A->size1; i++)
            {
              ordered_cols[i - 1] = i;
            }