Solve p17 in fortran (2)

LivInTheLookingGlass · Oct 2, 2024 · 58b1479 · 58b1479
1 parent c9b0770
commit 58b1479
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/p0017.f90 b/fortran/src/p0017.f90
@@ -19,7 +19,7 @@ module Problem0017
     implicit none
 contains
     integer recursive function to_string_len(n) result(answer)
-        integer, intent(in) :: n, tmp
+        integer, intent(in) :: n
         if (n >= 1000) then
             answer = to_string_len(n / 1000 % 100) + 8
             if (n % 1000 /= 0) then