diff --git a/fortran/src/p0010.f90 b/fortran/src/p0010.f90
index 3f79e813..4f73e8a1 100644
--- a/fortran/src/p0010.f90
+++ b/fortran/src/p0010.f90
@@ -17,8 +17,8 @@ integer(i18t) function p0010() result(answer)
         answer = 0
         tmp = 0
         do while (tmp < 2000000)
-            tmp = next_prime(tmp)
             answer = answer + tmp
+            tmp = next_prime(tmp)
         end do
     end function p0010
 end module Problem0010