Solve p8 (3)

LivInTheLookingGlass · Sep 24, 2024 · b21025c · b21025c
1 parent 2d550f8
commit b21025c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/p0008.f90 b/fortran/src/p0008.f90
@@ -59,7 +59,7 @@ integer(kind=8) function p0008() result(answer)
                         "05886116467109405077541002256983155200055935729725" // &
                         "71636269561882670428252483600823257530420752963450")
         do i = 1, 1000
-            digits(i) = integer(ichar(plain_digits(i:i)) - ichar('0'), kind=1)
+            digits(i) = int(ichar(plain_digits(i:i)) - ichar('0'), kind=1)
         end do
         do i = 1, (1000 - 12)
             tmp = digits(i)