Attempt p76 in fortran (8)

LivInTheLookingGlass · Oct 3, 2024 · a5a1ba5 · a5a1ba5
1 parent 0f615df
commit a5a1ba5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/include/primes.f90 b/fortran/src/include/primes.f90
@@ -39,7 +39,7 @@ end function next_prime
 
     subroutine expand_sieve(potential_n)
         integer(i18t), intent(in), optional :: potential_n
-        integer(i18t) :: new_size, new_n, i
+        integer(i18t) :: new_size, new_n
 
         if (present(potential_n)) then
             new_n = max(potential_n, current_n)