Solve p4 in fortran (5)

LivInTheLookingGlass · Oct 2, 2024 · d9e2acb · d9e2acb
1 parent 8fe0bdd
commit d9e2acb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/p0004.f90 b/fortran/src/p0004.f90
@@ -19,7 +19,7 @@ integer function p0004() result(answer)
                 prod = i * j
                 is_palindrome = .true.
                 write(string, '(I0)') prod
-                length = len(string)
+                length = len_trim(string)
 
                 do k = 1, length
                     n = length - k + 1