From be58daf851f9b67cf63a9bb0735ad977e3db2ce6 Mon Sep 17 00:00:00 2001
From: David Declerck <david.declerck@ocamlpro.com>
Date: Wed, 25 Sep 2024 15:46:42 +0200
Subject: [PATCH] Tentative fix for 4935

---
 cobc/codegen.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cobc/codegen.c b/cobc/codegen.c
index 3a344c208..51fcc1f29 100644
--- a/cobc/codegen.c
+++ b/cobc/codegen.c
@@ -8195,10 +8195,10 @@ output_perform_until (struct cb_perform *p, cb_tree l)
 	output_newline ();
 	output_line ("  break;");
 	if (CB_EXCEPTION_ENABLE (COB_EC_BOUND_SUBSCRIPT)
-	 && next) {
+	 /*&& next*/) {
 		cb_tree	xn;
 		/* Check all INDEXED BY variables used in VARYING */
-		for (xn = l; xn; xn = CB_CHAIN (xn)) {
+		for (xn = l; xn; xn = NULL /*CB_CHAIN (xn)*/) {
 			struct cb_field		*q;
 			f = CB_FIELD_PTR (CB_PERFORM_VARYING(CB_VALUE (xn))->name);
 			if (!f->flag_indexed_by) continue;