Force p10 to give correct to check p22 (2)

LivInTheLookingGlass · Oct 7, 2024 · d8d0132 · d8d0132
1 parent 822d1fe
commit d8d0132
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/fortran/src/p0010.f90 b/fortran/src/p0010.f90
@@ -16,11 +16,11 @@ integer(i18t) function p0010() result(answer)
 
         answer = 0
         tmp = 2
-        call expand_sieve(2001000)
-        do while (tmp < 2000000)
+        call expand_sieve(2001000_i18t)
+        do while (tmp < 2000000_i18t)
             answer = answer + tmp
             tmp = next_prime(tmp)
         end do
-        answer = 142913828922  ! temp define answer so I can check p22
+        answer = 142913828922_i18t  ! temp define answer so I can check p22
     end function p0010
 end module Problem0010