Fix compilation errors with p22 (2)

LivInTheLookingGlass · Oct 7, 2024 · 8ee7d45 · 8ee7d45
1 parent b8d1906
commit 8ee7d45
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fortran/src/p0022.f90 b/fortran/src/p0022.f90
@@ -44,15 +44,15 @@ integer(i18t) function p0022() result(answer)
                 case ('"')
                     continue
                 case default
-                    names(i) = names(i) // current_char
+                    names(i) = trim(names(i) // current_char)
             end select
         end do
         close(unit)
         call p0022_sort(names)
         do i = 1, name_count
             score = 0
             do j = 1, len(names(i))
-                score = score + (ichar(names(i)(j)) .and. 63)
+                score = score + ichar(names(i)(j)) - ichar('A') + 1
             end do
             answer = answer + score * i
         end do