From b802fcc566a6134f29ba59f24d211bb0082a0a39 Mon Sep 17 00:00:00 2001
From: Olivia Appleton <olivia.kay.appleton@gmail.com>
Date: Thu, 3 Oct 2024 22:30:22 -0500
Subject: [PATCH] Attempt p3 in fortran (3)

---
 fortran/src/p0003.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/src/p0003.f90 b/fortran/src/p0003.f90
index f21e7118..19c4796f 100644
--- 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)