From ad8b7d9e228c894c12cc061770b1a39d037e90ab Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Thu, 12 Sep 2024 07:01:23 +0200
Subject: Adding upstream version 4.6.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 regress.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regress.c')

diff --git a/regress.c b/regress.c
index e767e2f..1c86457 100644
--- a/regress.c
+++ b/regress.c
@@ -377,7 +377,7 @@ find_ordered_entry_with_flags(double *x, int n, int index, char *flags)
       r = v;
       do {
         while (l < v && x[l] < piv) l++;
-        while (x[r] > piv) r--;
+        while (r > 0 && x[r] > piv) r--;
         if (r <= l) break;
         EXCH(x[l], x[r]);
         l++;
-- 
cgit v1.2.3