add debug prints

LivInTheLookingGlass · Oct 8, 2024 · fca006a · fca006a
1 parent e6412b2
commit fca006a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/fortran/src/p0022.f90 b/fortran/src/p0022.f90
@@ -51,8 +51,14 @@ integer(i18t) function p0022() result(answer)
                     k = k + 1
             end select
         end do
+do i=1, size(names)
+print *. names(i)
+end do
         close(unit)
         call p0022_sort(names)
+do i=1, size(names)
+print *. names(i)
+end do        close(unit)
         do i = 1, name_count
             score = 0
             do j = 1, len_trim(names(i))