Give up; read whole file (3)

LivInTheLookingGlass · Oct 8, 2024 · 4623718 · 4623718
1 parent 2189b4d
commit 4623718
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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