try a minor tweak

LivInTheLookingGlass · Oct 8, 2024 · e43e8c7 · e43e8c7
1 parent 9fd4927
commit e43e8c7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/fortran/src/p0022.f90 b/fortran/src/p0022.f90
@@ -25,9 +25,9 @@ integer(i18t) function p0022() result(answer)
         character(len=DATA_MAX_NAME_SIZE), parameter :: file_name = "p0022_names.txt"
         character(len=longest_name), dimension(name_count) :: names
         character(len=longest_name) :: temp
-        character current_char
-        integer(i18t) score
-        integer ios, unit, i, j, k
+        character(len=1) :: current_char
+        integer(i18t) :: score
+        integer :: ios, unit, i, j, k
 
         i = 1
         j = 1