Attempt p3 in fortran (3)

LivInTheLookingGlass · Oct 4, 2024 · b802fcc · b802fcc
1 parent 1a625c7
commit b802fcc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/p0003.f90 b/fortran/src/p0003.f90
@@ -11,7 +11,7 @@ module Problem0003
     use primes
     implicit none
 contains
-    integer function p0003() result(answer)
+    integer(i18t) function p0003() result(answer)
         integer(i18t) :: num = 600851475143_i18t
         answer = 0
         do while (num > 1)