Attempt p3 in fortran (6)

LivInTheLookingGlass · Oct 4, 2024 · 38e1682 · 38e1682
1 parent c38d1ea
commit 38e1682
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/include/primes.f90 b/fortran/src/include/primes.f90
@@ -87,7 +87,7 @@ subroutine prime_factor(num, factor)
             factor = num
         else
             factor = 2
-            call expand_sieve(int(sqrt(num), i18t) + 1)
+            call expand_sieve(int(sqrt(real(num)), i18t) + 1)
             do while (factor <= num)
                 if (mod(num, factor) == 0) then
                     num = num / factor