diff --git a/fortran/src/p0022.f90 b/fortran/src/p0022.f90
index eb875504..b549e075 100644
--- a/fortran/src/p0022.f90
+++ b/fortran/src/p0022.f90
@@ -40,7 +40,7 @@ integer(i18t) function p0022() result(answer)
             read(unit, '(A)', IOSTAT=ios) contents
             if (ios == -1) then
                 exit
-            elseif (ios /= 0)
+            elseif (ios /= 0) then
                 stop ERROR_FILE_READ_FAILED
             end if
         end do