diff --git a/fortran/src/p0022.f90 b/fortran/src/p0022.f90
index 04f9f54c..bbc984a4 100644
--- 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