Fix access beyond array size

This commit is contained in:
Martin Kroeker
2026-04-02 10:14:09 +02:00
committed by GitHub
parent 93515c2f7a
commit 47be0d8a52

View File

@@ -509,7 +509,7 @@ L30:
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;