try explicit cycling

LivInTheLookingGlass · Oct 8, 2024 · 81d4293 · 81d4293
1 parent e43e8c7
commit 81d4293
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/fortran/src/p0022.f90 b/fortran/src/p0022.f90
@@ -47,6 +47,7 @@ integer(i18t) function p0022() result(answer)
                     i = i + 1
                     k = 1
                 case ('"')
+                    cycle
                 case default
                     names(i)(k:k) = current_char
                     k = k + 1