From 47be0d8a5226667ff0c7c8d1158f31c3092a8ae2 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 2 Apr 2026 10:14:09 +0200
Subject: [PATCH] Fix access beyond array size

---
 ctest/c_sblat3c.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ctest/c_sblat3c.c b/ctest/c_sblat3c.c
index e42d67c36f..7e703a427d 100644
--- a/ctest/c_sblat3c.c
+++ b/ctest/c_sblat3c.c
@@ -509,7 +509,7 @@ static logical c_false = FALSE_;
     if (i__1 < 2) {
         goto L60;
     }
-    for (i__ = 1; i__ <= 9; ++i__) {
+    for (i__ = 1; i__ <= 6; ++i__) {
         if (s_cmp(snamet, snames[i__ - 1] , (ftnlen)12, (ftnlen)12) == 
                 0) {
             goto L50;